Copy Not Move

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

Try using the FileSystemObject with the CopyFile Method..

Code:

---

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]