Flasher
|
 Posted: Sat Jun 23, 2018 22:47 Post subject: |
 |
|
| Code: | '=================================== VBS ===================================
' Дать папкам активного каталога имена своих одиночных файлов заданного типа
' Условие: путь запуска — пустой
' Параметр: <расширение одиночного файла>
' Ключ /base оставляет только базовое имя
'===========================================================================
Set ShA = CreateObject("Shell.Application")
Set FSO = CreateObject("Scripting.FileSystemObject")
If WSH.Arguments.Named.Exists("base") Then Pr = "Bas" Else Pr = "Fil"
For Each Fd In FSO.GetFolder(FSO.GetAbsolutePathName("")).SubFolders
Set Items = ShA.NameSpace(Fd.Path).Items
Items.Filter 8384, "*." & WSH.Arguments(0)
If Items.Count = 1 Then Execute "Fd.Name="&_
"FSO.Get" & Pr & "eName(Items.Item(0).Path)"
Next |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
