I need to change this code to copy All files the "customdoc" folde
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 "CHARM.PCD" file from "CUSTOMDOC FOLDER"
' to "TEST FOLDER".
FileCopy sSourcePath, sTargetPath
If Err 0 Then MsgBox Err.Description
End Sub
|