copy several files of a folder for other, using VBA?

[Frank Dulk]

How do I do to copy several files of a folder for other, using VBA?

 

[Paul Overway]

Did you look at help for FileCopy?

 

[Frank Dulk]

Did I already try but didn't I get, as it would be the code?

 

[Paul Overway]

FileCopy strSource, strDestination

You don't understand that?

 

[Frank Dulk]

I understand.
But as it would be to copy all the files?

 

[Douglas J. Steele]

You have to copy them one-by-one. If you're wanting to copy all files
matching a particular pattern, use the Dir function to determine the files.

 

[Frank Dulk]

They are files *.XLS

You have to copy them one-by-one. If you're wanting to copy all files
matching a particular pattern, use the Dir function to determine the files.

 

[Douglas J. Steele]

Dim strDestinationFolder As String
Dim strSourceFolder As String
Dim strFile As String

strDestinationFolder = "C:\Another Folder\"
strSourceFolder = "C:\My Data\"

strFile = Dir$(strSourceFolder & "*.XLS")
Do While Len(strFile) > 0
FileCopy strSourceFolder & strFile, strDestinationFolder & strFile
strFile = Dir$()
Loop

 

[Frank Dulk]

Thank you very much.

Dim strDestinationFolder As String
Dim strSourceFolder As String
Dim strFile As String

strDestinationFolder = "C:\Another Folder\"
strSourceFolder = "C:\My Data\"

strFile = Dir$(strSourceFolder & "*.XLS")
Do While Len(strFile) > 0
FileCopy strSourceFolder & strFile, strDestinationFolder & strFile
strFile = Dir$()
Loop