Dertrytt
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброго времени суток.
Возникла необходимость в скрипте для забора файлов и папок (с сохр. структуры) из нескольких сетевых папок в одну локальную.
Поиском нашёл такой вариант, но он только для файлов 
Код: Option Explicit
Dim objFSO
Dim arrSources
Dim strDestination
Dim strPath
arrSources = Array("\\server1\share1", "\\server1\share2", "\\server2\share3", "\\server2\share4")
strDestination = "C:\All"
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
With objFSO
For Each strPath In arrSources
If .FolderExists(strPath) Then
If .GetFolder(strPath).Files.Count > 0 Then
.MoveFile .BuildPath(strPath, "*.*"), strDestination & "\"
Else
WScript.Echo "Folder [" & strPath & "] not contain any files"
End If
Else
WScript.Echo "Folder [" & strPath & "] not found"
End If
Next
End With
Set objFSO = Nothing
WScript.Quit 0 |
Очень бы хотелось скрипт, в основе которого был найденный мной (с оповещением в случае если директория не содержит никаких папок и файлов, а также недоступности каталога).
И ещё хотелось бы из функционала: в случае, если будет совпадение по имени папки (выделена красным в примере), то просто пропускается перемещение конкретно этого каталога с имеющимися там папками и файлами, а сам скрипт при этом выдаст сообщение и продолжит свою работу с другими сетевыми папками в данном сетевом расположении. А после по списку продолжит работу с оставшимися сетевыми расположениями.
Пример, в котором демонстрируется какая папка должна быть проверена и в случае совпадения должен произойти пропуск перемещения конкретно этой папки в расположении \\server2\share\ (остальные папки в этом расположении перемещаются, после чего скрипт переходит к работе следующим сетевым расположением):
Локальная папка: C:\All\12345678\<разнородные файлы и папки с различной структурой>
\\server2\share\12345678\<разнородные файлы и папки с различной структурой> |
Всего записей: 5 | Зарегистр. 31-01-2016 | Отправлено: 12:21 23-07-2016 | Исправлено: Dertrytt, 15:22 23-07-2016 |
|
