Dim objArgs, i, patt1, nbrFiles

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments

' The following renames the file to the standard naming convention
Set re1 = New RegExp
re1.Pattern = "Luke Chapter ([\d]*).mp3"
patt1="Luk00$1.mp3"
'~ Set re2 = New RegExp
'~ re2.Pattern = "Romans ([\d]*).mp3"
'~ patt2="Rom0$1.mp3"

nbrFiles = 0
For i = 0 to objArgs.Count - 1
	fileName = objArgs(i)
	
	If re1.test(fileName) Then
		newFileName = re1.replace(fileName,patt1)
		objFSO.MoveFile fileName, newFileName
		nbrFiles = nbrFiles + 1
	'~ Elseif re2.test(fileName) Then
		'~ newFileName = re2.replace(fileName,patt2)
		'~ objFSO.MoveFile fileName, newFileName
		'~ nbrFiles = nbrFiles + 1
	Else
		lastBackSlash = InStrRev(fileName, "\")
		WScript.Echo "File """ & Mid(fileName, lastBackSlash + 1) & """ doesn't match the pattern """ & re1.Pattern & """"
	End If
Next
WScript.Echo "Renamed " & nbrFiles & " files."
WScript.Quit