Flasher
|
 Posted: Sat Dec 06, 2014 15:08 Post subject: |
 |
|
| NAA wrote: | | Можно задачу упростить |
Лень уже упрощать. VBS: | Code: | '===========================================================
' Cоздать в выбранных каталогах копии файла с базовым именем
' содержащихся внутри файлов указанного расширения
' Параметры: %WL "<Путь к файлу>" <искомое расширение>
' Пример: %WL "C:\My Folder\File.xmp" cr2
'===========================================================
With WScript.Arguments
If .Count = 0 Then WScript.Quit
List = .Item(0) : File = .Item(1) : Ex = .Item(2)
End With : Set ShA = CreateObject("Shell.Application")
Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FileExists(File) Then
Title = " Размножение файла в выбранных каталогах"
MsgBox "Файла " & File & " не существует!" & vbLf &_
"Укажите верный путь в параметрах!", 48, Title : WScript.Quit
End If : Ext = FSO.GetExtensionName(File)
With FSO.OpenTextFile(List,,,-1)
Do Until .AtEndOfStream
Fd = Trim(.ReadLine)
If Fd <> "" And FSO.FolderExists(Fd) Then
Set Items = ShA.NameSpace(Fd).Items
Items.Filter 192, "*." & Ex
For Each i in Items
FSO.CopyFile File, Fd & FSO.GetBaseName(i) & "." & Ext, 0
Next
End if
Loop : .Close
End With |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
