Progress_bar

' ProgressBar.vbs
' VBScript to display a progress bar
' JSWare
' ------------------------------------------------------------------' 
Dim bar, i
Set bar = new IEProgBar
With bar 
.Move -1, -1, 500, -1
.Units = 30
.Show
For i = 0 to 28
WScript.Sleep 500
.Advance
Next
End With 
Set bar = Nothing 

'-------- Start Progress bar Class ----------------------------------
Class IEProgBar
Private FSO, IE, BCol, TCol, ProgCol, ProgNum, ProgCaption, Pic, Q2, sTemp, iProg, ProgTitle

Private Sub Class_Initialize()
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
sTemp = FSO.GetSpecialFolder(2)
Set IE = CreateObject("InternetExplorer.Application") 
With IE
.AddressBar = False
.Titlebar = False
.menubar = False
.ToolBar = False
.StatusBar = False
.width = 400
.height = 120
.resizable = True
End With 
BCol = "E0E0E4" '--background color.
TCol = "000000" '--caption text color.
ProgCol = "0000A0" '--progress color.
ProgNum = 19 'number of progress units.
ProgCaption = "FDISK is creating partision C:\ - - - ALL DATA WILL BE LOST!"
ProgTitle = "FDISK Creating partision!"
Q2 = chr(34)
iProg = 0 '--to track progress.
End Sub

Private Sub Class_Terminate()
On Error Resume Next
MSGBOX "Partision C:\ Created"
IE.Quit
Set IE = Nothing 
Set FSO = Nothing 
End Sub

Public Sub Show()
Dim s, i, TS
On Error Resume Next
s = ""
s = s & ""
If (Pic <> "") Then 
s = s & ""
End If
If (ProgCaption <> "") Then
s = s & "" _
& ProgCaption & "

"
Else
s = s & "
"
End If
s = s & "
"
For i = 1 to ProgNum
s = s & "
"
Next
s = s & "


" 
Set TS = FSO.CreateTextFile(sTemp & "\iebar1.html", True)
TS.Write s
TS.Close
Set TS = Nothing
IE.Navigate "file:///" & sTemp & "\iebar1.html"
IE.visible = True
End Sub

'-- Advance method colors one progress unit. 
' iProg variable tracks how many
'-- units have been colored.
' Each progress unit is a