Sort Your Tracks/Samples/Projects/Files

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+