• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 193
  • Last Modified:

a simple file copying utility... problem!

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
0
Haho2
Asked:
Haho2
1 Solution
 
watyCommented:
You have 2 possibilities :
  - 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

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now