Code: Select all
FileGetTime, LastAccessedTimeRaw, someShortcut.lnk, A ; gets "last accessed" date/time
FileGetShortcut, someShortcut.lnk, ShortcutTarget
FileSetTime, LastAccessedTimeRaw, someShortcut.lnk, A ; replaces "last accessed" date/time
Code: Select all
Gui, 2: Add, ListView, x40 y130 h146 w380 Checked +ReadOnly +Sort vList1, Shortcut to Clean Up |Date Last Used
Loop, %A_Desktop%\*.lnk
{
FileGetTime, LastAccessedTimeRaw, %A_LoopFileFullPath%, A
FileGetShortcut, %A_LoopFileFullPath%, ShortcutTarget
SplitPath, A_LoopFileFullPath,,,, OutNameNoExt
if !FileExist(ShortcutTarget)
{
LV_Add("Check", OutNameNoExt, "No Target")
continue
}
FormatTime, LastAccessedTimeFormatted, %LastAccessedTimeRaw%, M`/dd`/yyyy h`:mm`.ss tt
LV_Add(Checkbox, OutNameNoExt, LastAccessedTimeFormatted)
InitialShortcutsFound = %A_Index%
FileSetTime, LastAccessedTimeRaw, %A_LoopFileFullPath%, A
}
Gui, 2: Show, w500 h360, Desktop Cleanup Wizard