Hi guys,
I am trying to create a simple file copying utility program that copies ALL files from a single directory and sents it to A:> ..Once it fills up the diskette , it is supposed to prompt the user to insert a new diskette and resume copying... however I cannot specify the wildcard
*.* as the files to be copies.... how do I rectify the problem and will my app. be able to commence copying after the disk prompt... I have included the code for you experts to look at ( and correct :)) .. thanks a lot!!!
The code....
Dim SourceFile, DestinationFile ' declare
On Error GoTo ErrorHandler ' catch error
SourceFile = "c:\temp\*.*" ' <-- the problem *.*!!!
DestinationFile = "a:\*.*"
FileCopy SourceFile, DestinationFile ' Copy source to target.
MsgBox ("File copying completed.")
End
ErrorHandler: ' Error-handling routine.
Select Case Err.Number ' Evaluate error number.
Case ...
< Abort copying and end program >
Case 61 ' Prompt for new disk if disk full
MsgBox ("Disk full. Please enter another disk.")
Resume ' will it continue copying from last point?
End Select
-- end of code summary --
Bye!!
david
- make a shell to XCopy
- Write it in VB :
Private Sub CopyFiles(sStart As String, sDest As String)
' *** Copy files from start to dest
Dim sFile As String
On Error GoTo ErrorHandler ' catch error
' *** Start with all files
sFile = Dir(sStart & "\*.*", vbNormal)
Do While sFile <> ""
FileCopy sStart & "\" & sFile, sDest & "\" & sFile
sFile = Dir()
Loop
MsgBox ("File copying completed.")
End
ErrorHandler: ' Error-handling routine.
Select Case Err.Number ' Evaluate error number.
Case ...
< Abort copying and end program >
Case 61 ' Prompt for new disk if disk full
MsgBox ("Disk full. Please enter another disk.")
Resume ' will it continue copying from last point?
End Select
End Sub