[VBA]
Sub CopyEm()
Dim oFSO As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
'set your paths below
oFSO.CopyFile "C:\MyTest\12345*.xls", "C:\NewDir\"
Set oFSO = Nothing
End Sub
[/VBA]
[VBA]
Sub CopyEm()
Dim oFSO As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
'set your paths below
oFSO.CopyFile "C:\MyTest\12345*.xls", "C:\NewDir\"
Set oFSO = Nothing
End Sub
[/VBA]
Posting Permissions
Reply With Quote