Public Class Copy		
  Public Shared Sub CopyFolder(ByVal Source As String, _ 
  		         ByVal Dest As String, _
		 	 ByRef Prog As ProgressBar)
   GetFileCount(source, Prog.Maximum)
   Prog.Step = 1
   CopyFolder(New DirectoryInfo(Source), Dest, Prog)
  End Sub
 
  Private Shared Sub GetFileCount(ByVal Source As String, _ 
				  ByRef FileCount As Integer)
   FileCount += IO.Directory.GetFiles(Source).Length
   For Each SubDir As DirectoryInfo In New IO.DirectoryInfo( _
     Source).GetDirectories()
     GetFileCount(SubDir.FullName, FileCount)
   Next
  End Sub
 
  Private Shared Sub CopyFolder(ByVal Source As DirectoryInfo, _
   	   		        ByVal Dest As String, _
	    			ByRef Prog As ProgressBar)
    If (Not Directory.Exists(dest)) Then
      Directory.CreateDirectory(dest)
      For Each fi As FileInfo In Source.GetFiles()
       Dim DestFile As String = Dest + "\" + fi.Name
       fi.CopyTo(destFile, False)
       Prog.PerformStep ()
      Next
      For Each SubDir As DirectoryInfo In source.GetDirectories()
       Dim DestTmp As String = SubDir.FullName.Replace(source.FullName, Dest)
       CopyFolder(SubDir, DestTmp, Prog)
      Next
    End If
  End Sub
End Class

Copy.CopyFolder("C:\mysql", "C:\temp", progressBar1)