;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
; Total Commander DreamLair ;
; Script: Sync Creation and Modification times ;
; (new time = earlier time) ;
; Script version: 1.0 (2019.12.09) ;
; Script author: LonerD (Made in DPR) ;
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
; Parameter: ;
; 1: %WL ( required ) ;
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
#NoEnv
#NoTrayIcon
#SingleInstance ignore
SetKeyDelay, 20, 20
if not ( WinExist("ahk_class TTOTAL_CMD") || WinActive("ahk_class TTOTAL_CMD") )
ExitApp
if 0 < 1
ExitApp
Target = %1%
FilelistV =
Loop, Read, % Target
{
FilelistV := FilelistV . A_LoopReadLine . "`r`n"
if InStr(FileExist(A_LoopReadLine), "D")
Loop, Files, %A_LoopReadLine%*.*, FDR
FilelistV := FilelistV . A_LoopFileFullPath . "`r`n"
}
Loop, Parse, % FilelistV, `n, `r
{
if InStr(FileExist(A_LoopField), "D")
Continue
FileGetTime, CreDate , % A_LoopField, C
FileGetTime, ModDate , % A_LoopField, M
NewDate := CreDate > ModDate ? ModDate : CreDate
FileSetTime, % NewDate, % A_LoopField, C, 0, 0
FileSetTime, % NewDate, % A_LoopField, M, 0, 0
}
FilelistV =
ExitApp
|