'=================================== 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 |