Поменять ненужный здесь цикл по маскам на цикл по ресурсам:
Код:
Option Explicit
Dim objFSO
Dim strPath
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
With objFSO
For Each strPath In Array("\\server1\share1", "\\server1\share2", "\\server2\share3", "\\server2\share4")
.MoveFile .BuildPath(strPath, "*.*"), "\\server2\Destination"
Next
End With
Set objFSO = Nothing
WScript.Quit 0
Цитата Wsador:
|
Плюс есть сложность - в именах файла есть символы [ и ] »
|
Никакой сложности, это не PowerShell.
