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

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

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