Dateiname in Verzeichnisname ändern - MEHRERE Dateien

[MikeDD]

Hallo zusammen,

ich habe viele Verzeichnisse, die Dateien mit kryptischen Dateinamen enthalten. Ich möchte nun die Dateien IN dem Verzeichnis umbenennen, so dass sie dem Verzeichnisnamen entsprechen.

IST:
DIR Beispiel
FILE 981z239z1.jpg 0qija90sidj.jpg (nicht nur JPG, auch andere!)

SOLL:
DIR Beispiel
FILE Beispiel-1.jpg Beispiel-2.jpg


Hier http://www.hardwareluxx.de/community/f20/dateien-ordnername-umbenennen-707343-2.html fand ich ein schönes Script (DANKE!), allerdings funkt das nur mit einer Datei im jeweiligen Verzeichnis. Kann jemand helfen und das Script für meine Zwecke umgestalten?

 

[little_skunk]

Set Shell = WScript.CreateObject("WScript.Shell")
Set Parameter = WScript.Arguments
For i = 0 to Parameter.Count - 1
	Set fso = CreateObject("Scripting.FileSystemObject")
	Ordner=fso.GetParentFolderName(Parameter(i))
	Dateiendung=fso.GetExtensionName(Parameter(i))
	Dateiname=fso.GetFileName(fso.GetParentFolderName(Parameter(i)))
	k=0
	Do While fso.FileExists(Ordner + "\" + Dateiname + "-" & k & "." + Dateiendung)=True
		k=k+1
	Loop 
	fso.MoveFile Parameter(i),Ordner + "\" + Dateiname + "-" & k & "." + Dateiendung
Next

Probier es mal aus. Sicherheitskopie nicht vergessen.