Dim sSourceFolder, sTargetFolder, sFile, oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
sSourceFolder = "c:\Source"
sTargetFolder = "c:\Target"
For Each sFile In oFSO.GetFolder(sSourceFolder).Files
If Not oFSO.FileExists(sTargetFolder & "\" & oFSO.GetFileName(sFile)) Then
oFSO.GetFile(sFile).Copy sTargetFolder & "\" & oFSO.GetFileName(sFile),True
WScript.Echo "Copying : " & Chr(34) & oFSO.GetFileName(sFile) & Chr(34) & " to " & sTargetFolder
End If
Next