This was very helpful... here is what I have sofar... however I can only seem
to move one file at a time. how can I change this to move all files in the
folder?
Sub FileCopyExample()
Dim sSourcePath As String
Dim sTargetPath As String
' Change these paths to your Source and Target paths.
sSourcePath = "C:\PNTTEMPL\CustomDoc\CHARM.PCD"
sTargetPath = "C:\PNTTEMPL\CustomDoc\TEST\CHARM.PCD"
On Error Resume Next
' Copy the file "My Document" file from "Macintosh HD
![Big Grin :D :D](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
ocuments"
' to "Macintosh HD:Backup".
FileCopy sSourcePath, sTargetPath
If Err > 0 Then MsgBox Err.Description
End Sub