Flasher
|
 Posted: Sat Nov 02, 2013 18:26 Post subject: |
 |
|
suraev, vbs:
| Code: | '============================================================
' Копировать выбранные каталоги со всеми файлам без структуры
' Параметры: %WL "<путь получателя>"
' Пример: %WL "%T"
'============================================================
If WScript.Arguments.Count Then
List = WScript.Arguments(0) : Path = WScript.Arguments(1)
If Right(Path, 1) <> "\" Then Path = Path & "\"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SHA = CreateObject("Shell.Application")
For Each F in Split(FSO.GetFile(List).OpenAsTextStream(1, -1).ReadAll, vbNewLine)
If FSO.FolderExists(F) Then
T = Path & FSO.GetFileName(F)
If Not FSO.FolderExists(T) Then FSO.CreateFolder T
Set FNew = SHA.NameSpace(T) : Copy F, FNew
Recursive F, FNew : Set FNew = Nothing
End If
Next : Set FSO = Nothing : Set SHA = Nothing : WScript.Quit
End If
Sub Recursive(Fl, FdNew)
For Each Fd In FSO.GetFolder(Fl).SubFolders
Copy Fd, FdNew : Recursive Fd, FdNew
Next
End Sub
Sub Copy(OldF, NewF)
Set PA = SHA.NameSpace(CStr(OldF)).Items
PA.Filter 192, "*.*" : NewF.CopyHere PA, 12
End Sub |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
