How do I copy a directory to drive A?

[Kiegs219]

Hello,
I tried to copy a certain directory using:
FileCopy "C:\bla bla", "A:\"
It returns a message saying:
"Path/File Access Error"
Can anyone help?

Thank you

Here's an example. Make a Form with 2 CommandButtons.

Put this code in Command1

Private Sub Command1_CLick()

   Open "C:\test.txt" For Output As #1
   Print #1, "abcdefghijklmnopqrstuvwxyz"
   Close #1

End Sub

Put this code in Command2.

Private Sub Command2_Click()

   SFile = "C:\ttt.txt"
   DFile = "A:\"

   FileCopy SFile, DFile

End Sub

[kedaman]

You cannot copy a folder automatically. To do it manually

Make the main sub using mkdir
Loop trough all items in you subdir by using dir or fso object and copy the files independently.

[Kiegs219]

Thanks, but how do you make the loop to send the files in the folder to "A:"?

[kedaman]

HAven't tested it, i just wrote it down here

Dim a$
A=dir(yourdir)
do while len(a)
 filecopy a, "a:\" & a
 a=dir
loop