Flasher
|
Posted: Sat Sep 01, 2012 21:10 Post subject: |
|
|
+ Тихий вариант:
Code: | '============================ VBS ============================
' Создание отсутствующих подкаталогов с заданным именем внутри
' выбранных папок с перемещением в них файлов в заданной маске
' Параметры: %WL <имя подкаталога> <маска>
' Пример: %WL Images *.gif;*.jpg;*.jpeg;*.png;*.tif;*.tiff
'=============================================================
Option Explicit: Dim List, Name, Mask, Shell, Fd, Items, FN
With WSH.Arguments
If .Count = 0 Then WSH.Quit
List = .Item(0) : Name = .Item(1) : Mask = .Item(2)
End With : Set Shell = CreateObject("Shell.Application")
Set List = CreateObject("Scripting.FileSystemObject").OpenTextFile(List,,,-1)
Do: Fd = List.ReadLine
If Right(Fd, 1) = "\" Then
Set Items = Shell.NameSpace(Fd).Items
Items.Filter 8256, Mask
If Items.Count > 0 Then
FN = Fd & Name : Shell.NameSpace(Left(Fd, 3)).NewFolder Mid(FN, 4)
Shell.NameSpace(FN).MoveHere Items, 5652
End If
End If
Loop Until List.AtEndOfStream : List.Close
Set List = Nothing : Set Shell = Nothing |
|
|