Batch - Dateinamen auslesen, umbenennen + dreistellige Zahl vor bisherigen Dateinamen setzen.

'---------------------------------------------------------------------------------------------------------  
' Rename.vbs - Script zum hinzufügen der Titelnummer zum Dateinamen  
'---------------------------------------------------------------------------------------------------------  

Option Explicit
Dim WshShell :		Set WshShell		= CreateObject("WScript.Shell")  
Dim FSO :		Set FSO			= CreateObject("Scripting.FileSystemObject")  
Dim WshApplication :	Set WshApplication 	= CreateObject("Shell.Application")  
Dim tmpBatchRunner, tmpActualFile, Drive, Folder, FolderItem, strHeader, strValue, Year, File, FileNameFile, FileOldName, strNewValue

Year = InputBox("Welches Jahr moechten Sie ueberarbeiten?" & vbCR & "Gültige Eingaben: 2011, 2013, 2014")  

if Not Year = "2011" And Not Year = "2013" And Not Year = "2014" Then WScript.Quit  

Set tmpBatchRunner = FSO.CreateTextFile("Batchrunner.bat", True)  
tmpBatchRunner.writeline("if exist FileNames.txt del FileNames.txt") 	'Batch löscht "FileNames.txt"  
tmpBatchRunner.writeline("dir /b>FileNames.txt") 						'Batch schreibt "FileNames.txt" mit den Namen der Dateien.  
tmpBatchRunner.Close
set tmpBatchRunner = nothing
WshShell.Run "Batchrunner.bat"  

' Dateinamen Zeile für Zeile aus "FileNames.txt" auslesen  

Drive = left(WScript.ScriptFullName, 1)
Set Folder = WshApplication.NameSpace(Drive & ":\Geordnete Musik\" & Year)  
'strHeader = Folder.GetDetailsOf(Folder.Items, 26) 	'26 - Titelnummer  

WScript.Sleep 3000 ' 3 sek  
Set FileNameFile = FSO.OpenTextFile("FileNames.txt",,True)  

Do Until FileNameFile.AtEndOfStream 'Anzahl der Dateien im Ordner %Year%  
	tmpActualFile = FileNameFile.Readline
	if tmpActualFile = "Rename.vbs" or tmpActualFile = "FileNames.txt" or tmpActualFile = "BatchRunner.bat" or tmpActualFile = "" Then  
	Else
		Set File = FSO.GetFile(tmpActualFile)
		Set FolderItem = Folder.ParseName(tmpActualFile)
		strValue = Folder.GetDetailsOf(FolderItem, 26)
	
		select case strValue
			case len(strValue) = 0
				Set strNewValue = nothing
			case len(strValue) = 1 
				strNewValue = "00" & strValue & " "  
			case len(strValue) = 2
				strNewValue = "0" & strValue & " "  
			case len(strValue) = 3
				strNewValue = strValue & " "  
			case len(strValue) > 3
				strNewValue = left(strValue, 3) & " "  
		End Select
		FileOldName = File.Name
		'MsgBox strValue & vbCr & FileOldName  
		File.Name = strNewValue & FileOldName
	End if
Loop