'**************************************
    ' Name: mp3org.vbs
    ' Description:This script uses WSH to or
    '     ganize a folder of MP3's by album name
    ' By: Sean Anderson
    '
    ' Inputs:The script uses source folder a
    '     nd destination folder eg. mp3org c:\cabi
    '     net d:\orgcabinet
    '
    ' Returns:NOthing
    '
    ' Assumes:This script assumes that the d
    '     estination folder already exists, it wil
    '     l check for existence for sure, but does
    '     not create if it does not. Also the scri
    '     pt assumes that the source folder has on
    '     ly MP3 files and no other file type or s
    '     ubfolders. Also it assumes that album in
    '     formation is stored in the file summary
    '
    'This code is copyrighted and has    ' limited warranties.Please see http://w
    '     ww.Planet-Source-Code.com/vb/scripts/Sho
    '     wCode.asp?txtCodeId=8668&lngWId;=4    'for details.    '**************************************
    
    '**
    '**
    '** Script Name: mp3org.vbs
    '** Author: Sean Anderson (sanderson_20@
    '     yahoo.com)
    '**
    '** Description: THis script looks a fol
    '     der filled with MP3's, and based on the 
    '     album information
    '** in the summary information of the fi
    '     le, creates the album folder in specifie
    '     d destination folder.
    '** This script can certainly be edited 
    '     to work with any file type. There is not
    '     much error checking in the script
    '** as wrote it for personal use, but fe
    '     el to adapt for your own use.
    '**
    '**
    Dim oArgs
    Dim dFile
    Dim objFSO
    Dim sFolder, dFolder
    Dim Folder
    Dim sFile
    Set oArgs = WScript.Arguments
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    '
    'Check command line arguments, and promp
    '     t with porper usage.
    '
    if oArgs.Count <> 2 Then
    	WScript.Echo "USAGE: mp3org [mp3 source folder] [mp3 destination folder]"
    	WScript.Quit 1
    End if
    '
    ' Check to make sure folders are valid. 
    '     There are many things that can happen he
    '     re
    ' but for my purpose i kept it simple, a
    '     nd check for existentent folders. Feel f
    '     ree
    ' add folder creation etc. here
    '
    sFolder = oArgs(0)
    dFolder = oArgs(1)
    if Not objFSO.FolderExists(sFolder) Then
    	WScript.Echo "Error: The [mp3 source folder] parameter must be a valid Folder " & _
    	"Instead it was '" & sFolder & "'."
    	WScript.Quit 1
    Else
    if Not objFSO.FolderExists(dFolder) Then
    	WScript.Echo "Error: The [mp3 destination folder] parameter must be a valid Folder " & _
    	"Instead it was '" & sFolder & "'."
    	WScript.Quit 1
    End if
    End if
    '
    'Call sub-routine that does actual clean
    '     up work
    '
    Organize sFolder, dFolder, objFSO
    '
    'Define sub routine that does cleanup an
    '     d pass user folder args
    '
    Sub Organize (Folder1, Folder2, oFSO)
    Dim sFile
    Dim fPath
    Set objShell = CreateObject ("Shell.Application")
    Set objFolder = objShell.Namespace (Folder1)
    '
    '
    For Each strFileName In objFolder.Items
    On Error Resume Next
    	Set sFile = oFSO.GetFile(Folder1 & "\" & strFileName)
    	fPath = sFile.path
    	'
    	'This following line grabs the album name from the MP3 file To enable 
    	'album name folder creation. Album information grabbed from file summary page.
    	'There are tons of info on the summary page, to see whats there, right click on
    	'a MP3 file and click On the summary tab To see what's there, or click advanced
    	'to see.
    	'
    	dstFolder = Folder2 & "\" & objFolder.GetDetailsOf (strFileName, 17)
    	'Here the script checks For the destination name based on the line above
    	'if folder is present Do nothing, if not create it
    	'	
    	if Not oFSO.FolderExists(dstFolder) Then
    		oFSO.CreateFolder(dstFolder)
    	End if
    	'
    	'Copy file In To album folder....and repeat.	
    	'
    	oFSO.CopyFile fPath, dstFolder & "\"
    	Next
    End Sub