[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

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

[Romano]

Спасибо!

Хотел уточнить, в приведенном скрипте перемещаются все файлы из папки в папку я так понимаю, а нужно, чтобы количество задавалось как параметр, т.е. прописываем в скрипте параметр, например, NumberOfFiles=5 и запускаем скрипт раз в 10 сек. В итоге раз в 10 сек из папки Folder1 переместится 5 файлов в папку Folder2. Т.е. нужно "дозированное" перемещение.

[Loran_rus]

Тогда так

Код:

Set objFSO = CreateObject("Scripting.FileSystemObject")

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

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

[Romano]

Для учета расширений файлов добавил пару строк, отпишитесь если верно

Код:

Set objFSO = CreateObject("Scripting.FileSystemObject")

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


For Each File In objFSO.GetFolder(SourceFolder).Files
	TargetPath = DestFolder+File.Name
	
	  If LCase(objFSO.GetExtensionName(TargetPath)) = "rtf" Then '<-----
	  
		If Not objFSO.FileExists(TargetPath) Then
			If NumberOfFiles = 0 Then
				Exit For
			End if
			objFSO.MoveFile File.Path, DestFolder
			NumberOfFiles = NumberOfFiles-1
		End If
	 
	 End If                                   '<-----
Next

[Loran_rus]

object.GetExtensionName(path) Возвращает строковое значение расширения последнего компонента в указанном пути.
Так что TargetPath хоть и содержит путь назначения \\ServerName\Folder2\ последний его компонент является именем (вместе с расширением) обрабатываемого файла и методу не важно что написано до последнего символа \ можно даже TargetPath заменить на File.Name. Единственное что могу порекомендовать это вписать оба параметра в одно условие

Код:

If Not objFSO.FileExists(TargetPath) and LCase(objFSO.GetExtensionName(File.Name)) = "rtf" Then