[Iska]

Если поставить в диспетчер задач »

Очевидно — планировщик задач.

то задача просто весит и не заканчивается. »

Скрипт вывел то же самое сообщение. Вы его не видите, поскольку для заданию, очевидно, не дано разрешения взаимодействовать с Рабочим столом текущего пользователя (такая настройка существует для заданий старого типа).

Вариантов несколько.

1. Закомментировать вывод сообщений апострофом:

Код:

    'WScript.Echo "Folder [" & strPath & "] not contain any files"

.

2. Исполнять скрипт под консольным хостом «cscript.exe»:

Код:

cscript.exe //nologo "Путь\Имя.vbs"

а не умолчальным GUI-вариантом — «wscript.exe». Вывод будет идти в консоль, а не в MessageBox'ы. При запуске из-под планировщика Вы не увидите равно и окно консоли.

3. Вообще подавить вывод сообщений (в том числе и сообщений об ошибках):

Код:

cscript.exe //nologo //b "Путь\Имя.vbs"

или:

Код:

wscript.exe //b "Путь\Имя.vbs"

[Wsador]

Большое спасибо, Iska.
Воспользовался первым вариантом.
А можете подсказать каким образом в дальнейшем сделать перемещение из 4 папкок в 4 другие соответствующие папки. То есть например перемещать из папки \\server1\share1 в \\server2\share1, \\server1\share2 в \\server2\share2 и так для четырех папок. А также возможно ли каким-то образом вносить имена перемещаемых файлов в лог?

[Iska]

Всё возможно. Но скажите, а каков глубинный смысл перемещения с одного ресурса на другой?

[Wsador]

А можете подсказать как это реализовать?
А смысл простой - есть 4 папки на внешнем фтп. Туда заливаются отчеты в текстовых файлах. На первом этапе(тестовом) их необходимо перемещать с этого фтп в одну папку на другой сервер, второй - этап из каждой папки в соответствующую папку на втором сервере. А потом из 4 папкок уже на втором сервере происходит автоматическая обработка содержания файлов приложением и дальнейшее их распеределение в соответствующие директории.

[Iska]

Wsador, примерно так (не проверялось):

читать дальше »

Код:

Option Explicit

Dim objFSO
Dim arrShare

Dim strSourceFolder
Dim strDestFolder

Dim objFile
Dim objFolder


Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

For Each arrShare In Array( _
		Array("\\server1\share1", "\\server2\share1"), _
		Array("\\server1\share2", "\\server2\share2"), _
		Array("\\server1\share3", "\\server2\share3"), _
		Array("\\server1\share4", "\\server2\share4") _
	)
	
	strSourceFolder = arrShare(0)
	strDestFolder   = arrShare(1)
	
	If objFSO.FolderExists(strSourceFolder) Then
		If objFSO.FolderExists(strDestFolder) Then
			With objFSO.GetFolder(strSourceFolder)
				If .Files.Count > 0 Then
					objFSO.MoveFile objFSO.BuildPath(strSourceFolder, "*.*"), strDestFolder & "\"
				End If
				
				If .SubFolders.Count > 0 Then
					objFSO.MoveFolder objFSO.BuildPath(strSourceFolder, "*.*"), strDestFolder & "\"
				End If
			End With
		Else
			WScript.Echo "Destination folder [" & strDestFolder & "] not found."
		End If
	Else
		WScript.Echo "Source folder [" & strSourceFolder & "] not found."
	End If
Next

Set objFSO = Nothing

WScript.Quit 0

[Wsador]

Iska
Спасибо, проверил -все работает. А возможно ли добавить логирование? Чтобы он заносил имя перемещаемых файлов в текстовый лог в сетевую папку на server2 - например в "\\server2\sharelogs"?

[Iska]

А возможно ли добавить логирование? »

Приношу свои извинения, запамятовал.

Чтобы он заносил имя перемещаемых файлов в текстовый лог … »

Нет, нельзя, поскольку в данном варианте используется перемещение по маске — «*.*».

Если очень нужно, можно попробовать перебором:

читать дальше »

Код:

Option Explicit

Dim objFSO
Dim arrShare

Dim strSourceFolder
Dim strDestFolder

Dim objFile
Dim objFolder


Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

For Each arrShare In Array( _
		Array("\\server1\share1", "\\server2\share1"), _
		Array("\\server1\share2", "\\server2\share2"), _
		Array("\\server1\share3", "\\server2\share3"), _
		Array("\\server1\share4", "\\server2\share4") _
	)
	
	strSourceFolder = arrShare(0)
	strDestFolder   = arrShare(1)
	
	If objFSO.FolderExists(strSourceFolder) Then
		If objFSO.FolderExists(strDestFolder) Then
			With objFSO.GetFolder(strSourceFolder)
				WScript.Echo "==========================================================="
				WScript.Echo "Source folder:      " & strSourceFolder
				WScript.Echo "Destination folder: " & strDestFolder
				WScript.Echo "-----------------------------------------------------------"
				
				For Each objFolder In .SubFolders
					WScript.Echo "[" & objFolder.Name & "]"
					objFolder.Move strDestFolder & "\"
				Next
				
				For Each objFile In .Files
					WScript.Echo objFile.Name
					objFile.Move strDestFolder & "\"
				Next
				
				WScript.Echo "==========================================================="
				WScript.Echo
			End With
		Else
			WScript.Echo "Destination folder [" & strDestFolder & "] not found."
		End If
	Else
		WScript.Echo "Source folder [" & strSourceFolder & "] not found."
	End If
Next

Set objFSO = Nothing

WScript.Quit 0

Для вывода лога в файл используйте перенаправление вывода:

Код:

cscript.exe //nologo "Путь\Имя.vbs" >"\\server2\sharelogs\Out.log"

[Wsador]

Iska
Все хорошо, только проблема с логом возникла. При запуске файла vbs с этим:

Код:

cscript.exe //nologo "Путь\Имя.vbs" >"\\server2\sharelogs\Out.log"

Пишет ошибку - во вложении. Пробывал параметр //nologo и //b. На месте ошибки находятся начало скобок - /

[Iska]

Пишет ошибку - во вложении. »

Нажмите «Ctrl-C» в окне сообщения об ошибке. Получите текст в буфер обмена.

error.jpg »

Вы его пытались запускать не через «cscript.exe»?

На месте ошибки находятся начало скобок - / »

Wsador, упакуйте в архив и выложите Ваш «R:\SCRIPTS\test.vbs».

[Wsador]

Цитата Iska:
Вы его пытались запускать не через «cscript.exe»? »
Имется ввиду через wscript.exe?
Цитата Iska:
Wsador, упакуйте в архив и выложите Ваш «R:\SCRIPTS\test.vbs». »
Во вложении