Total Commander

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

Function NextName(pFilePath) 
...
End Function 

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

Sub MoveFile(pFile, pFolder) 
  Dim lF, lE
  lF = "C:\temp\" & FSO.GetParentFolderName(pFolder.Path) & "_" & pFile.Name
  lE = LCase(FSO.GetExtensionName(pFile.Path))
  If (lE = "jpg") Or (lE = "tif") Then FSO.MoveFile pFile.Path, lF
End Sub

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

'====================================================================== 
' Параметры: 
' {файл-список} 
' 
' Пример параметров при вызове из TC: 
' %L 
'====================================================================== 
Option Explicit 
Dim FSO, FF, F, SF 

With WScript 
  If .Arguments.Count = 0 Then 
    MsgBox "Не заданы параметры!", vbOKOnly + vbCritical, "Очистка вложенных папок" 
    .Quit 
  End If 
  FF = .Arguments(0) 
End With 

Set FSO = CreateObject("Scripting.FileSystemObject") 

With FSO.OpenTextFile(FF, 1) 
  Do While Not .AtEndOfStream 
    F = Trim(.ReadLine) 
    If F <> "" Then 
      If FSO.FolderExists(F) Then 
        For Each SF In FSO.GetFolder(F).SubFolders 
          On Error Resume Next 
          MoveFromFolder SF, F 
          If Err.Number = 0 Then FSO.DeleteFolder SF.Path 
          Err.Clear 
          On Error GoTo 0 
        Next 
      End If 
    End If 
  Loop 
  .Close 
End With 

Set FSO = Nothing 
WScript.Quit 

Sub MoveFromFolder(pSubFolder, pFolder) 
  Dim lF 
  For Each lF In pSubFolder.Files 
    MoveFile lF, pFolder 
  Next 
  For Each lF In pSubFolder.SubFolders 
    MoveFromFolder lF, pFolder 
    FSO.DeleteFolder lF.Path 
  Next 
End Sub 

Sub MoveFile(pFile, pFolder) 
  Dim lF, lE 
  lF = "C:\temp\" & FSO.GetParentFolderName(pFolder.Path) & "_" & pFile.Name 
  lE = LCase(FSO.GetExtensionName(pFile.Path)) 
  If (lE = "jpg") Or (lE = "tif") FSO.MoveFile pFile.Path, lF 
End Sub