etwas für script genies :)

[thomas_b]

hi kollegen
frage...
ich hab ein ordner "B - Besondere Fotos" und wenn ich die unter vbs file ausführe werden alle fotos im ordner zufällig angeordnet

groesse=200000000
Set fs = CreateObject("Scripting.FileSystemObject")
strOrdner = "B - Besondere Fotos"
Set Ordner = fs.GetFolder(strOrdner)
For Each Datei In Ordner.Files
Dateiname = int(rnd(1)*groesse)+1
Endung = "." & fs.GetExtensionName(Datei)
Datei.Name = "B_" & X & Dateiname & x & Endung
Next

und ich habe jetz allerdings sehr viele verschieden ordner wo ich immer das selbe machen will (ausser das nicht mit B_ sondern zb mit D_)

kann ich mir das irgenwie erleichtern damit ich nicht 24 verschieden VBS Files durchklicken muss
THX TOm

[Old Anonym]

vielleicht a Funktion schreiben und die 24 mal aufrufen!

[Pedda²]

und der Rückgabewert soll auf strOrdner geschrieben werden.