copying multiple files 1

[FJAY]

I try to copy multiple files from one directory to another using the filecopy statements like this"

filecopy "\\b\lab\orders\*.*", "\\b\lab\com-orders\"

How can I copy multiple files from one directory to another directory i.e. directory A to B. Thanks.

 

[Swi]

This method uses the FSO but you could easily modify it to use FileCopy. I prefer FSO because of the overwrite option.

' Add a reference to Microsoft Scripting Runtime
Dim fso As New FileSystemObject, fil As File, ts As TextStream
Set fso = CreateObject("Scripting.FileSystemObject&quot
Dim MyFileName As String
MyFileName = Dir("C:\17410sd\*.*&quot
Do While MyFileName <> vbNullString
fso.CopyFile &quot;C:\17410sd\&quot; & MyFileName, &quot;C:\&quot; & MyFileName, False
MyFileName = Dir
Loop
MsgBox &quot;File Copy Complete!&quot;, vbInformation

Swi

 

[FJAY]

Swi - Thanks...this works fine both ways but an error occurs if the filename already exist. Thanks

 

[FJAY]

Swi - never mind....I'm very dumb....the overwrite should be set to true. Thanks.

 

[giny]

How can i create a text file?
I would like the code for this.

 

[Swi]

There are many ways to create a text file. Here is an example:

Open &quot;YOUR FILE NAME.txt&quot; For Output As #1
Print #1, &quot;This is a test&quot;
Close #1

Swi