Total Commander

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

@echo off &setlocal enableextensions &chcp 1251 >nul
rem Обработка файлов в зависимости от расширения
rem Параметры: "%L"
rem Автор: Tol!k
for /f "usebackq delims=" %%s in ("%~1") do (
  for /f "delims=" %%f in ('dir /b/s/a-d/o-n "%%s"') do (
    title "%%f" &echo "%%f"
    if not "%%~xf"=="" call :%%~xf "%%f"
    echo -------------------------------------------------------------------------------
  )
)
title Done. &pause
goto :eof

:.FLAC
rem Decoding: flac -d [<general-options>] [<format-options>] [FLACFILE [...]]
"C:\Program Files\Tools\FLAC\flac.exe" -d -f %1
goto :eof

:.APE
rem Decompress: mac.exe "Metallica - One.ape" "Metallica - One.wav" -d
"C:\Program Files\Tools\MAC\MAC.exe" %1 "%~dpn1.wav" -d
goto :eof

:.M4A
rem Usage: alac [options] [--] file
"C:\Program Files\Tools\ALAC\alac.exe" -f "%~dpn1.wav" %1
goto :eof

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

'====================================================================== 
' Исполнение связанной программы в зависимости от расширения файла 
'   для каждого файла из файла-списка и для каждого вложенного файла 
'   для папок из файла-списка. Исполнение выполняется последовательно. 
' 
' Параметры: 
' {файл-список} 
' 
' Пример параметров при вызове из TC: 
' %L 
'====================================================================== 
Option Explicit 
Dim FSO, WSH, FF, F 

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

Set FSO = CreateObject("Scripting.FileSystemObject") 
Set WSH = CreateObject("WScript.Shell") 

With FSO.OpenTextFile(FF, 1) 
  Do While Not .AtEndOfStream 
    F = Trim(.ReadLine) 
    If F <> "" Then 
      If FSO.FolderExists(F) Then ForFolder FSO.GetFolder(F) 
      If FSO.FileExists(F)   Then WSH.Run CommandLine(FSO.GetFile(F)), 1, True 
    End If 
  Loop 
  .Close 
End With 

Set FSO = Nothing 
Set WSH = Nothing 
WScript.Quit 

Sub ForFolder(pFolder) 
  Dim lF 
  For Each lF In pFolder.Files 
    WSH.Run CommandLine(lF), 1, True 
  Next 
  For Each lF In pFolder.SubFolders 
    ForFolder lF 
  Next 
End Sub 

Function CommandLine(pFile) 
  Dim lPath, lName, lExt 
  lPath = pFile.ParentFolder.Path 
  lName = FSO.GetBaseName(pFile) 
  lExt  = UCase(FSO.GetExtensionName(pFile)) 
  Select Case lExt 
    Case "FLAC" 
      CommandLine = """C:\Program Files\Tools\FLAC\flac.exe"" -d """ & pFile & """" 
    Case "APE" 
      CommandLine = """C:\Program Files\Tools\MAC\MAC.exe"" """ & pFile & """ """ & lPath & "\" & lName & ".wav"" -d" 
    Case "M4A" 
      CommandLine = """C:\Program Files\Tools\ALAC\alac.exe"" -f """ & lPath & "\" & lName & ".wav"" """ & pFile & """" 
  End Select 
End Function

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

:.CUE
:.DOC
:.JPG
:.LOG
:.M3U
:.PDF
:.TXT
rem Это заглушка
goto :eof

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

@echo off &setlocal enableextensions &chcp 1251 >nul
rem Параметры: "%L"
for /f "usebackq delims=" %%s in ("%~1") do (
  for /f "delims=" %%f in ('dir /b/s/a-d/o-n "%%s"') do (
    title "%%f"
    if /i "%%~xf"==".APE" call :.APE2FLAC "%%f" &echo -------------------------------------------------------------------------------
  )
)
title Done. &pause
goto :eof

:.APE2FLAC == Перекодирование .APE в .FLAC
"C:\Program Files\Tools\MAC\MAC.exe" %1 - -d >"%temp%\~ape2flac.wav" &&"C:\Program Files\Tools\FLAC\flac.exe" -8 -f -o "%~dpn1.flac" "%temp%\~ape2flac.wav" &&del /q %1 "%temp%\~ape2flac.wav"
goto :eof