Copy Not Move

[HeSaidJoe]

Having 2 files in a folder called FolderA
I want to copy the files to FolderB and FolderC and still have the files in FolderA

Thanks,
Wayne

[Aaron Young]

Try using the FileSystemObject with the CopyFile Method..

Private Sub Command1_Click()
    Dim oFSO As Object
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    oFSO.CopyFile "C:\Test1\*.*", "C:\Test2"
    Set oFSO = Nothing
End Sub

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]