C:\Users\NisimHurst\Utilities\Autohotkey\SetFolderTimestampToNewestFile\SetFolderTimestampToNewestFile.ahk

SetFolderTimestampToNewestFile.ahk

; SetFolderTimestampToNewestFile.ahk
;   by SanskritFritz
; Set a folder's 'modified' date to the timestamp of the newest file it contains.
; The folder name should be given as parameter.

#NoTrayIcon

if 0 <> 1
{
	MsgBox The parameter 'folder name' is missing!
	Return
}
sFolder = %1%
setCurrentFolder(sFolder)
Return

setCurrentFolder(sFolder){
	dTimestamp := "19000101"
	bThereIsFile := False
	Loop, Files, %sFolder%\*, FD
	{
		if (InStr(A_LoopFileAttrib, "D")){
			setCurrentFolder(A_LoopFileFullPath)
		}
		FileGetTime, dFileTime, %A_LoopFileFullPath%
		if (dTimestamp < dFileTime){
			bThereIsFile := True
			dTimestamp := dFileTime
		}
		; if (dTimestamp < A_LoopFileTimeModified)
		; 	dTimestamp := A_LoopFileTimeModified
	}
	if (bThereIsFile)
		FileSetTime %dTimestamp%, %sFolder%
}