como podria hacer para cojer el nombre de una carpeta,? gracias
Tus preguntas son sobre Visual Basic SCRIPT (No es lo mismo que Visual Basic, Tiene diferencias), Tanto esta pregunta, como esta otra: http://foro.elhacker.net/programacion_visual_basic/vbs_barra_de_progreso-t369061.0.html;msg1774282#msg1774282
Y las preguntas que haces están más que documentadas.
1º - Aquí tienes varios ProgressBar: VBS ProgressBars (http://bit.ly/Op5yOn)
2º - Para obtener el nombre de una carpeta, Solo tienes que molestarte en leer los primeros posts de la primera página del subforo de scriptging: Tutorial de vbscript by Novlucker (http://foro.elhacker.net/scripting/tutorial_vbscript-t229032.0.html)
PD: Busca un poco antes de pedirlo todo hecho...
Salu2
sCurPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
Set fs = CreateObject("Scripting.FileSystemObject")
Set micarpeta = fs.getfolder(sCurPath)
Set subcarpetas = micarpeta.subfolders
For each s in subcarpetas
Msgbox s.name
Next