Watch your file names - length is critical. The nav manual for my '07 indicated maximum permissible file names of 32 characters. If you are one character longer, the structure is totally messed up and selecting from the index will play a different song, etc.
I've made a scriptfil that changes the file names to numbers - you keep the ID3 tags (you can still see the name of the artist etc). The script also create a logfil named log.txt.
Run the script and then burn the CD at low speed.
Start notepad, copy this and save/name it as corvette.vbs (Good luck):
Dim FSO, Files, FolderChooser, LogFile
Dim Counter : Counter = 0
Set FolderChooser = CreateObject("Shell.Application")
Set Folder = FolderChooser.BrowseForFolder(0,"Välj Mapp",0)
If Not Folder Is Nothing Then
EnumerateFiles(Folder.Items.Item.Path)
Set WshShell = CreateObject("WScript.Shell")
LF = Folder.Items.Item.Path & "\Log.txt"
WshShell.Run "notepad.exe """ & LF & """ "
End If
Sub EnumerateFiles(Folder)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set LogFile = FSO.CreateTextFile( Folder & "\Log.txt", True)
Set Files = CreateObject("ADOR.RecordSet")
Files.Fields.Append "FileName", 200, 255
Files.Open
Set FSOFolder = FSO.GetFolder(Folder)
For Each File In FSOFolder.Files
If LCase(FSO.GetExtensionName(File.Name)) = "mp3" Then
Files.AddNew
Files("FileName") = File.Name
Files.Update
End If
Next
RenameFiles(Folder)
LogFile.Close
End Sub
Sub RenameFiles(Folder)
If Files.RecordCount > 0 Then
Files.MoveFirst
Randomize
CurrentRecord = Int(Files.RecordCount*Rnd())
Files.Move CurrentRecord
Name = Files.Fields.Item("FileName")
Counter = Counter + 1
FSO.MoveFile Folder & "\" & Name, Folder & "\" & Counter & ".mp3"
LogFile.Write Folder & "\" & Name & " Moved to: " & Folder & "\" & Counter & ".mp3" & vbCrLf & "_____________" & vbCrLf
Files.Delete 1
RenameFiles(Folder)
End If
End Sub
