Option Explicit
'=============================================================================
'Script:        SimpleFileOrganizer_1.04.vbs
'Purpose:       Automates file to folder organization
'Author:        sqlsamson (SJL)
'Version:       v1.04 (2009.10.22)
'
'Description:
'		This script grabs the create date from the file 
'		and creates a folder based on the modified date MM-DD-YY
'		and moves the file to the newly created and designated 
'		folder if the folder exist then the file is moved.
'
'		If the files have been copied from another pc besure to
'		un-comment line 53 (tFile.DateLastModified) to use the Modified
'		date instead and comment out line 54 before running the script.
'
'		Because if the files have a common create date then all will
'		be groupped into a single folder.
'
'		Great for unorganized photos still on media card and files
'		unorganized in a folder like downloaded items.
'
'Variables:
'		============================================
'		Edit strFolderPath to desired target folder
'		============================================
'
'Usage:		
'		Double click SimpleFileOrganizer_1.04.vbs to execute or
'		from a command prompt cscript SimpleFileOrganizer_1.04.vbs.
'		Confirmation is presented at the very end of the process.
'=============================================================================

' ========== Header ========== 
Dim objFSO,dTimer,strFolderPath,targetFolder,targetFiles,file,tFile
Dim newFolderName,folderDate, intCnt, strMsg
Set objFSO = CreateObject("Scripting.FileSystemObject")

' ========== Reference ========== 
dTimer			= Now()
strFolderPath 		= "G:\My_VBS\testFiles\"
intCnt			= 0

' ========== Process ========== 
If objFSO.FolderExists(strFolderPath) Then
	Set targetFolder 	= objFSO.GetFolder(strFolderPath)
	Set targetFiles 	= targetFolder.Files
	
		For each file in targetFiles
			
			Set tFile		= objFSO.GetFile(targetFolder & "\" & file.name)
			'folderDate		= tFile.DateLastModified
			folderDate		= tFile.DateCreated 
			newFolderName		= Right("0" & Month(folderDate),2) & "-" & Right("0" & Day(folderDate),2) & "-" & Right("0" & Year(folderDate),2)
				
				If objFSO.FolderExists(targetFolder & "\"  & newFolderName) Then
					objFSO.MoveFile targetFolder & "\" & file.name, targetFolder & "\" & newFolderName & "\" & file.name
				ElSE
					objFSO.CreateFolder(targetFolder & "\" & newFolderName)
					objFSO.MoveFile targetFolder & "\" & file.name, targetFolder & "\" & newFolderName  & "\" & file.name
				END IF
			intCnt = intCnt + 1
		Next

Else
	strMsg = MsgBox("Path not found: (" & strFolderPath & ") Terminating process.",16,"Invalid Path Error")
	WScript.Quit(9)
End If

' ========== Output ========== 
WScript.Echo "The process took " & DateDiff("s",dTimer,Now()) & " seconds to organize (" & intCnt & ") file(s)!"


' ========== Clean Up ========== 
Set objFSO 		= Nothing
Set TargetFolder 	= Nothing
Set targetFiles 	= Nothing
Set tFile		= Nothing
intCnt			= ""
dTimer			= NULL
WScript.Quit