;MoveToDate.ahk
; Moves files from the desktop to a folder named the current date
;Skrommel @ 2009

from=%A_Desktop%          ;Where to look for files
to=%A_Desktop%            ;Where to move the files
name=Moved                ;Name of the base folder
ignore=%name%,Notepad2    ;Comma separated list of file names to ignore, no unnessesary spaces!
moveonexit=0              ;0=move instantly  1=move when the program ends

#SingleInstance,Force
#NoEnv
#Persistent,On

applicationname=MoveToDate

If moveonexit=0
  Goto,MOVE
OnExit,MOVE
Return


MOVE:
date:=A_YYYY "-" A_MM "-" A_DD " " A_Hour "-" A_Min
FileCreateDir,% to "\" name "\" date
Loop,% from "\*.*",1,0
{
  TrayTip,%applicationname%,% "Moving`n " A_LoopFileLongPath "`nto`n " to "\" name "\" date "\" A_LoopFileName
  If A_LoopFileName Contains %ignore%
    Continue
  IfInString,A_LoopFileAttrib,D
    FileMoveDir,%A_LoopFileLongPath%,% to "\" name "\" date "\" A_LoopFileName
  Else
    FileMove,%A_LoopFileLongPath%,% to "\" name "\" date "\" A_LoopFileName
}
ExitApp