+- Downhill-Board (https://downhill-board.com)
+-- Forum: Off Bike (https://downhill-board.com/forumdisplay.php?fid=7)
+--- Forum: Ranger's Talk Corner & Off-Topic (https://downhill-board.com/forumdisplay.php?fid=66)
+--- Thema: etwas für script genies :) (/showthread.php?tid=23933)
etwas für script genies :) - thomas_b - 2005-02-03
hi kollegen
![[Bild: smile.gif]](https://www.downhill-board.com/images/graemlins/smile.gif)
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
Zitat: 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
![[Bild: confused.gif]](https://www.downhill-board.com/images/graemlins/confused.gif)
THX TOm
etwas für script genies :) - Old Anonym - 2005-02-03
vielleicht a Funktion schreiben und die 24 mal aufrufen!
etwas für script genies :) - Pedda² - 2005-02-03
und der Rückgabewert soll auf strOrdner geschrieben werden.