This is the code that I have to copy a folder and all it contents. I want to be able to show the progress of the copying action on a progress bar.
Thank you for your help...
SourceDir = App.path & "\" & "Files\*"
TargetDir = gstrPath & "\" & "Files\"
blnFound = CreatePath(TargetDir)
fsoFileSystem.CopyFolder SourceDir, TargetDir
fsoFileSystem.CopyFile SourceDir, TargetDir
Thank you for your help...
SourceDir = App.path & "\" & "Files\*"
TargetDir = gstrPath & "\" & "Files\"
blnFound = CreatePath(TargetDir)
fsoFileSystem.CopyFolder SourceDir, TargetDir
fsoFileSystem.CopyFile SourceDir, TargetDir