How do I use a progress bar to show the amount of files completed in a conversion application that I wrote

See more:

VB

Hi,

I have created an application that converts files in a static folder. I would like to have a progress to show the user how much is left to convert till completion.

Can someone please be of assistance :)

thanks.

[EDIT - OP code from a "solution"]
Hi,

Here is my code for the convert part. I have no idea how to write code for a progress bar as this is the first time I am actually willing to use one.

Sub RecurseDirectory(ByRef sPath As String)
        Try
            Dim counter = My.Computer.FileSystem.GetFiles(sPath)
            MsgBox("Number of files is: " & CStr(counter.Count))
            'Dim i As Integer = CInt(counter)
            Dim di As New IO.DirectoryInfo(sPath)
            Dim disub As IO.DirectoryInfo() = di.GetDirectories()
            Dim diar1 As IO.FileInfo() = di.GetFiles("*.vox")
            Dim diri As IO.DirectoryInfo
            Dim dra As IO.FileInfo
            'di.GetDirectories()
            'list the names of all files in the specified directory
            For Each diri In disub
                RecurseDirectory(diri.FullName)
            Next
            Dim myArrayList As New ArrayList
            For Each dra In diar1
                frmMain.lblFileName.Text = dra.FullName
                uLaw(frmMain.lblFileName.Text, Replace(frmMain.lblFileName.Text, ".vox", ".wav"))
                'Vox2Mp3(frmMain.lblFileName.Text, Replace(frmMain.lblFileName.Text, ".vox", ".mp3"))
                frmMain.lblFileName.Refresh()
                Application.DoEvents()
                System.Threading.Thread.Sleep(50)
<''''''progress>