Making music, recording or generally making digital media can result in lots of unorganised files and folders. This either means you will have to spend quite a bit of time finding your files or take the plunge and sort out all of your files. Not wanting to do either of these I wrote a VB Script to take care of this. The script looks at specified files in the same folder and then sorts them in to YYYY\MMM folders.
This is done based on Modified date so it will keep all of your files in a timeline style order.
Dim fso, objFSO, sourcedir, destdir, folder, files, file, month, year, path Set fso = CreateObject("Scripting.FileSystemObject") Dim sCurPath sCurPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".") folderCheck = msgbox("Organise All xls Files in " & sCurPath & " ?", vbYesNo, "Organise") if folderCheck = vbYes Then sourcedir = sCurPath destdir = sCurPath Set folder = fso.GetFolder(sourcedir) Set files = folder.Files For each file in folder.Files month = MonthName(mid(file.DateLastModified,4,2),true) year = mid(file.DateLastModified,7,4) path = destdir & "\" & year & "\" & month If Not fso.folderexists(destdir & "\" & year) Then fso.CreateFolder destdir & "\" & year If Not fso.folderexists(destdir & "\" & year & "\" & month) Then fso.CreateFolder destdir & "\" & year & "\" & month If right(file.name,3) = "wav" Then fso.MoveFile file, path & "\" & file.name End If Next Else Msgbox "Cancelled" End If
In order to use the file copy the code above and save it as organise.vbs – then simply double click on the file.
This script could be modified to sort your files anyway you like; alphabetical, numerical, file size, file type etc…. Let me know if you have any time saving scripts you use to keep your digital life in order.Google+