Progress Bar

Brian Element's picture
Submitted by Brian Element on Sat, 07/14/2012 - 19:25

The following code will set-up the variables, display the progress bar and update it.

Snippet: 
'set-up variables to show the progress bar, based on the script ProgressBar.iss by Joel J.J. Hebert
Dim percentComplete As Object
Dim p As Integer

'add this code just before the script that will be running, usually before a loop
Set percentComplete = CreateObject ("CommonIdeaControls.StandaloneProgressCtl")
percentComplete.Start "percentage explanation"

'add this code at the bottom of the loop to update the counter
If Int(i * 100/ oldRS.Count) > p Then
	p = Int(i * 100/ oldRS.Count)
	percentComplete.Progress p
End If