AutoHotkey Community

;=======================================================================
; AutoHotKey script: SetModToCrea.ahk (V1.0 28.11.06)
;
; set "modified" timestamp of dirs/files to same value as "created"
; for a whole dir tree
;
; use script or parts of it as you like but at your own risk
;
; andreas lang, conTEXT AG, Zurich, Switzerland
;=======================================================================

#SingleInstance ignore               ; don't start script more than once

n = 0                                               ; files/dirs counter

FileSelectFolder, dir, *C:\, 0           ; don't allow making new folder
if ErrorLevel or dir =
{
  msgBox no folder selected. exit!
  exit
}

StringRight, lastDirChar, dir, 1                ; fetch last char of dir
If lastDirChar = \
{
                                ; root dir! don't try changing timestamp
  StringTrimRight, dir, dir, 1                 ; chop trailing backslash
}
Else                                         ; touch selected dir itself
{
  FileGetTime, dirCreaDate,   %dir%, C
  FileSetTime, %dirCreaDate%, %dir%, M, 1, 0
  ++n
}

Loop, %dir%\*.*, 1, 1            ; recursive loop over files AND folders
{
                                       ; files AND folders, no recursion
  FileSetTime, %A_LoopFileTimeCreated%, %A_LoopFileLongPath%, M, 1, 0
  ++n
}

msgBox MODIFIED to CREATED timestamp set for %n% dirs/files.

exit

;=======================================================================

;=======================================================================
; AutoHotKey script: SetCreaToMod.ahk (V1.00 01.02.08)
;
; set "created" timestamp of dirs/files to same value as "modified"
; for a whole dir tree
;
; use script or parts of it as you like but at your own risk
;
; andreas lang, conTEXT AG, Zurich, Switzerland
;=======================================================================

#SingleInstance ignore               ; don't start script more than once

n = 0                                               ; files/dirs counter

FileSelectFolder, dir, *C:\, 0           ; don't allow making new folder
if ErrorLevel or dir =
{
  msgBox no folder selected. exit!
  exit
}

StringRight, lastDirChar, dir, 1                ; fetch last char of dir
If lastDirChar = \
{
                                ; root dir! don't try changing timestamp
  StringTrimRight, dir, dir, 1                 ; chop trailing backslash
}
Else                                         ; touch selected dir itself
{
  FileGetTime, dirModiDate,   %dir%, M
  FileSetTime, %dirModiDate%, %dir%, C, 1, 0
  ++n
}

Loop, %dir%\*.*, 1, 1            ; recursive loop over files AND folders
{
                                       ; files AND folders, no recursion
  FileSetTime, %A_LoopFileTimeModified%, %A_LoopFileLongPath%, C, 1, 0
  ++n
}

msgBox CREATED = MODIFIED timestamp set for %n% dirs/files.

exit

;=======================================================================