Copy a file to another location

[kanejone]

Or maybe:

Public Sub CopyTheFiles()
Dim FSO As Object
On Error GoTo NOFSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "D:\Folder\*.ack","C:\Folder2\" , True
Set FSO = Nothing
Exit Sub
NOFSO:
MsgBox"FSO copy failed"
End Sub

Add a reference to Microsoft Scripting Runtime.