a simple file copying utility... problem!
Posted on 1998-08-24
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!!!
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.")
ErrorHandler: ' Error-handling routine.
Select Case Err.Number ' Evaluate error number.
< 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 of code summary --