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#msg1774282Y las preguntas que haces están más que documentadas.
1º - Aquí tienes varios ProgressBar:
VBS ProgressBars2º - 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 NovluckerPD: 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