Flasher
|
 Posted: Sat Aug 19, 2017 03:36 Post subject: |
 |
|
Iori
Попробуй такой:
| Code: | '======================== VBS ========================
' Копирование/перемещение выбранного по заданному пути
'
' Условие: путь запуска — пустой
' Примечание: в пути достаточно правильной буквы диска
'
' Параметры: %WF "<путь назначения>" <copy/move>
'
' Примеры: %WF "%PMy Folder" copy
' %WF D:\New\New2\New3\New4\New5 move
'=====================================================
Set A = WSH.Arguments : If A.Count = 0 Then WSH.Quit
Set FSO = CreateObject("Scripting.FileSystemObject")
With CreateObject("Shell.Application")
D = FSO.GetDriveName(A(1))
.NameSpace(D).NewFolder Mid(A(1), Len(D) + 2)
List = Replace(FSO.OpenTextFile(A(0),,,-1).ReadAll, vbCrLf, ";")
Set Items = .NameSpace(FSO.GetAbsolutePathName("")).Items
Items.Filter 73952, Replace(Left(List, Len(List) - 1), "\", "")
Execute ".NameSpace(A(1))." & A(2) & "Here Items, 4120"
End With |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
