[Sammelthread] Desktopbilder & Wallpaper

Hätte noch ein paar Fenster geöffnet. Man sieht den Audi noch :wink:
 
Wenn Du diese Anzeige nicht sehen willst, registriere Dich und/oder logge Dich ein.
Besser so? :wink:

bildschirmfotovon2014cxqxf.png
 
Schon etwas besser :)
 
wie man Bilder nach dem Zufallprinzip umbenennt

Diese Zeilen Speichern auf dem Desktop als
umbenennen.vbs
-----------------------------------------------------------
groesse=200000000
Set fs = CreateObject("Scripting.FileSystemObject")
strOrdner = "bilder"
Set Ordner = fs.GetFolder(strOrdner)
For Each Datei In Ordner.Files
Dateiname = int(rnd(1)*groesse)+1
Endung = "." & fs.GetExtensionName(Datei)
Datei.Name = Dateiname & x & Endung
Next
------------------------------------------------------------
Dann alle Bilder-Dateien die du zufällig umbenennen willst in ein Verzeichnis mit dem Namen bilder auf dem Bildschirm kopieren.

Nun umbenennen.vbs anklicken fertig

Es wird nicht überprüft ob sich die Dateinamen wiederholen oder um was für dateien es sich handelt
aber das sieht man ja im Quelltext
sollten sich zufälligerweise die zufallszahlen wiederholen gibts ne fehlermeldung. blabla....wenn das passiert einfach die erste Zeile groesse=....... eine andere zahl eintragen
 
deskuqu1u.jpg


Wird Zeit für ein paar neue Dual-Screen-Wallpaper T_T
 


Draufklicken für 1080p.
 
Zuletzt bearbeitet:
bildschirmfoto2014-08pck60.jpg


und vom PC ...

blubbf2ccf.jpg
 
Zuletzt bearbeitet:
Das vom Mac hätt ich gerne :wink:
 
Hardwareluxx setzt keine externen Werbe- und Tracking-Cookies ein. Auf unserer Webseite finden Sie nur noch Cookies nach berechtigtem Interesse (Art. 6 Abs. 1 Satz 1 lit. f DSGVO) oder eigene funktionelle Cookies. Durch die Nutzung unserer Webseite erklären Sie sich damit einverstanden, dass wir diese Cookies setzen. Mehr Informationen und Möglichkeiten zur Einstellung unserer Cookies finden Sie in unserer Datenschutzerklärung.


Zurück
Oben Unten refresh