microtom.net tom's windows tech blog

On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
sSourceFolder = "C:\Temp1"
sDestinationFolder = "C:\Temp2"
 
For Each sFile In objFSO.GetFolder(sSourceFolder).Files
	If objFSO.FileExists(sDestinationFolder & "\" & objFSO.GetFileName(sFile)) Then
		WScript.Echo "Deleting File:" & sDestinationFolder & "\" & objFSO.GetFileName(sFile)
		objFSO.GetFile(sDestinationFolder & "\" & objFSO.GetFileName(sFile)).Delete
	End If
	WScript.Echo "Moving : " & Chr(34) & objFSO.GetFileName(sFile) & Chr(34) & " to " & sDestinationFolder 
	objFSO.GetFile(sFile).Move sDestinationFolder & "\" & objFSO.GetFileName(sFile)  
Next