I am having issues with my program that takes all .jpg files and creates folders to sort them by creation date. Any time there are files in sub folders (provided subfolders are selected) it grabs the creation date and file names. If the files are in the subfolders it creates a folder for the createion date but doesn't copy the files. Anyone know why?
Code:
;;;Global Variables;;;
List =
i = 0
Errors = 0
Subs = 0
FileSelectFolder, PictureFolder, C:\Documents and Settings\Geoff\My Documents,, Select the picture folder
If ErrorLevel
ExitApp
MsgBox, 4, SubFolders?, Would you like to include subfolders?
IfMsgBox, Yes
Subs = 1
Loop, %PictureFolder%\*.jpg,, %Subs%
{
FormatTime, Month, %A_LoopFileTimeCreated%, M
FormatTime, Year, %A_LoopFileTimeCreated%, yyyy
FormatTime, CreationTime, %A_LoopFileTimeCreated%, M-dd-yy
List = %List%%A_LoopFileName% %CreationTime%`n
IfExist, C:\Documents and Settings\Geoff\My Documents\My Pictures\%Month%-%Year%
{
FileCopy, %PictureFolder%\%A_LoopFileName%, C:\Documents and Settings\Geoff\My Documents\My Pictures\%Month%-%Year%
If ErrorLevel,
{
Errors++
}
Else,
{
i++
}
}
Else,
{
FileCreateDir, C:\Documents and Settings\Geoff\My Documents\My Pictures\%Month%-%Year%
FileCopy, %PictureFolder%\%A_LoopFileName%, C:\Documents and Settings\Geoff\My Documents\My Pictures\%Month%-%Year%
If ErrorLevel,
{
Errors++
}
Else,
{
i++
}
}
}
If List =
{
MsgBox, There were no files in that folder
}
Else,
{
MsgBox, %i% files moved successfully!`n%Errors% files were unable to be moved.
}
MsgBox, The files in this folder are:`n%List%
ExitApp
^DELETE::ExitApp
Login
Register
FAQ
Search
