[Loran_rus]

Код:

Set objFSO = CreateObject("Scripting.FileSystemObject")

SourceFolder = "\\ServerName\Folder1\"
DestFolder = "\\ServerName\Folder2\"

For Each File In objFSO.GetFolder(SourceFolder).Files
	TargetPath = DestFolder+File.Name
		If Not objFSO.FileExists(TargetPath) Then
			objFSO.MoveFile File.Path, DestFolder
		End If
Next

к сожалению не могу придумать вменяемую проверку используется переносимый файл или нет так как открытые на запись файлы у меня получается переименовывать и даже удалять