Der Quelltext ist kurz und einfach:
; File 4 File
; kopiert Dateien einzeln, nachdem sie sortiert wurden
loop, %1%\*.*, 0,0 ; Alle Dateien im Verzeichnis werden abgeklappert ...
{
tmp = %tmp%%A_LoopFileLongPath%`n
num = %A_Index%
}
sort, tmp
StringReplace, tmp, tmp,`n,¢, All
StringReplace, tmp, tmp,c:\windows\temp,, All
StringTrimRight, tmp, tmp, 1
FileSelectFolder, fold,,2, %num% Files to copy
Progress, M R0-%num% W400 FM10 FS8, Warte..., 0/%num%, %num% Files to copy, Arial
loop, Parse, tmp,¢
{
Progress, %A_Index%, %A_LoopField%, %A_Index%/%num%
FileCopy, %A_LoopField%, %fold%
}
;run, explorer.exe %fold%