[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