Flasher
|
 Posted: Mon May 16, 2016 17:11 Post subject: |
 |
|
AmeKs >>>
| Code: | '================================= VBS ==================================
' Перемещение выбранных файлов совместно с находящимися в том же каталоге
' и имеющими одно базовое имя в соответствии с заданной маской расширений
'
' Условие: путь запуска - пустой
'
' Параметры: %WL "<путь назначения>" <маска расширений>
' Пример: %WL "%T" *.inf;*.ini
'========================================================================
With WScript.Arguments
If .Count = 0 Then WScript.Quit
List = .Item(0) : Path = .Item(1) : Exts = .Item(2)
End With : Set FSO = CreateObject("Scripting.FileSystemObject")
Set Shell = CreateObject("Shell.Application")
Set Items = Shell.NameSpace(FSO.GetAbsolutePathName("")).Items
Set Path = Shell.NameSpace(Path)
With FSO.OpenTextFile(List,,,-1)
Do : F = Trim(.ReadLine)
Items.Filter 73952, FSO.GetFileName(F) & ";" &_
Replace(Exts, "*", FSO.GetBaseName(F))
Path.MoveHere Items, 8
Loop Until .AtEndOfStream : .Close
End With |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Fri May 20, 2016 10:24; edited 2 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
