Total Commander

Код: Выделить всё

'==========================================================
' Именовать файлы нумерацией в структуре активного каталога
' в чётких пределах от 1-цы до числа рассматриваемых файлов

' Условие: путь запуска - пустой

' Параметр (необязательный): <фильтр-список расширений>
' Пример: *.jpg;*.jpeg
'==========================================================
With WScript.Arguments
  If .Count Then If .Item(0) <> "" Then Filt = .Item(0) Else Filt = "*.*" End if
End With : Set Dict = CreateObject("Scripting.Dictionary")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set ShA = CreateObject("Shell.Application")
Set SC  = CreateObject("ScriptControl")
With CreateObject("WScript.Shell")
  CD = .CurrentDirectory
  If CD = FSO.GetParentFolderName(WScript.ScriptFullName) Then WScript.Quit
  SC.Language = "JScript" : SC.AddCode("function VBSort(array){return(new VBArray"&_
  "(array).toArray().sort(function(a,b){return parseInt(a,10)-parseInt(b,10)}));}")
  ForFolder CD : .SendKeys "^R"
End With

Sub ForFolder(Path)
  Set Items = ShA.NameSpace(Path).Items : Count = Items.Count
  For i = 1 to Count
    If Filt <> "*.*" Then Flt = Replace(Filt, "*", i) Else Flt = i & ".*"
    Items.Filter 224, Flt : Cnt = Items.Count
    If Cnt = 0 Then Exit For
  Next : Items.Filter 64, Filt
  If Items.Count Then
    If i > Count Then T = 1 : i = 1
    For Each F in Items : Dict.Add F, "" : Next
    For Each F in SC.Run("VBSort", Dict.Keys)
      Ext = FSO.GetExtensionName(F) : If Ext <> "" Then Ext = "." & Ext
      BN = FSO.GetBaseName(F) : N = i & Ext
      If IsNumeric(BN) Then
        If T = "" And (CLng(BN) > i Or Clng(BN) < 1) Then
          If Not FSO.FileExists(Path & "\" & N) And Not _
          FSO.FolderExists(Path & "\" & N) Then F.Name = N End If : i = i + 1
        End If
      Else
        While FSO.FileExists(Path & "\" & N) Or FSO.FolderExists(Path & "\" & N)
          i = i + 1 : N = i & Ext
        Wend : F.Name = N
      End If
    Next : Dict.RemoveAll
  End If : Items.Filter 160, "*"
  For Each Fold in Items : ForFolder Fold.Path : Next
End Sub