Dim args, arg0, playfile, playpath
Set args = WScript.Arguments

Dim FileSystemObj

Set FileSystemObj = CreateObject("Scripting.FileSystemObject")

arg0 = "n/a"

If args.count > 0 Then
	arg0 = args(0)
End If

playfile = ""

If FileSystemObj.FileExists(arg0) and (instr(arg0, ".m3u") > 0) Then
	playfile = arg0
	playpath = FileSystemObj.GetParentFolderName(arg0) + "\"
End If 


If Len(playfile) > 0 Then

	Dim fileobj, arrFile, tmpFile, sFileOrdered, sFileUnOrdered, iFileOrder, sFileOrder

	fileobj = FileSystemObj.OpenTextFile(playfile).ReadAll()

	arrFile = split(fileobj, vbcrlf)
		
	iFileOrder = 1
	For each  tmpFileName in arrFile
		sFileOrder = right("00000000" + cstr(iFileOrder), 4)
		
		sFileUnOrdered = playpath + tmpFileName
		sFileOrdered = playpath + sFileOrder + " - " + tmpFileName
		
		If FileSystemObj.FileExists(sFileUnOrdered) Then

			FileSystemObj.MoveFile sFileUnOrdered, sFileOrdered
		Else
			If FileSystemObj.FileExists(sFileOrdered) Then
				FileSystemObj.MoveFile sFileOrdered, sFileUnOrdered
			End If 
		End If 
		
		
		iFileOrder = iFileOrder + 1
	Next

End If

Set FileSystemObj = nothing