Dateien umbenennen (minitool)

Hallo liebe Kollegen,

ich bräuchte eine .bat (welch ein Wunder).

Zutaten:

Ein bissl temporäres VBScript + Batchcode

Aufgabe:

Die .bat soll ein VBScript erstellen. Mit diesem VBScript soll ein Eingabefenster erscheinen in dem ein Name angegeben werden kann.

Der Name wird an die .bat übergeben und diese benennt alle Dateien im selben Ordner um.

Beispiel:

looolz.part1.rar
looolz.part2.rar
looolz.part3.rar
looolz.part4.rar

zu:

wunschname_looolz.part1.rar
wunschname_looolz.part2.rar
wunschname_looolz.part3.rar
wunschname_looolz.part4.rar

Wobei *wunschname* die Bezeichnung darstellt die im vbScript eingegeben wurde, das Zeichen "_" dient als Trennzeichen.

Ablauf:

1) Ich lege die .bat in den Ordner in dem ich Dateien umbenennen möchte uns starte Sie. Die .bat erstellt ein VBScript das mich nach der Bezeichnung fragt.

2) Ich gebe die Bezeichnung ein und die .bat benennt alle Datein um.

3) Die temporäre VBScriptdatei wird wieder gelsöcht.

Hat da jemand gerade mal auf die schnelle die passenden Zeilen parat?

Anmerkung:

Da die .bat zu einer exe compiliert wird, soll die Eingabe über ein vbscript laufen und nicht über die cmd selber.

Nette Grüße

Soidberg

@echo off
set "customstring=test"  

:: vb-script: exec thisbat.bat +param(customstring) !

cd /d %~dp0
for /f "delims=" %%f in ('dir *.rar /b') do (  
ren "%%~nxf" "%customstring%_%%~nxf"  
)

@echo off & setlocal
pushd %~dp0
set "Eingabe=%temp%\Eingabe.vbs"  
echo WScript.Echo InputBox("Bitte den neuen Namen eingeben!", "Fenstertitel", "Default")>"%Eingabe%"  
for /f "delims=" %%i in ('cscript //nologo "%Eingabe%"') do set "Neu=%%i"  
del "%Eingabe%"  
for /f "delims=" %%i in ('dir /b /a-d^|findstr /v "%~nx0"') do ren "%%i" "%Neu%_%%i"  
popd

if "%Neu%"=="" goto :eof