[Prince]

Du hast nicht alles gelesen oder? Das mag so mit Dateien funktionieren die im selben Ordner sind, aber sicherlich nicht mit Dateien die in ~ 5000 verschiedenen Ordner sind.

[haze303]

Speichere folgendes S***** in eine Datei mit der Endung .VBS
Tausche ggf den rot markierten Laufwerksbuchstaben aus, mit dem Laufwerk, auf dem sich die Dateien befinden und speichern nicht vergessen.
Doppelklick auf die Datei und warten, bis die Meldung ("Renaming complete.") erscheint.
Ich habe es bei mir getestet und es lief einwandfrei.

On Error Resume Next

Set FSO = CreateObject("S*****ing.FileSystemObject")
ShowSubfolders FSO.GetFolder("C:\")

Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        ShowSubFolders Subfolder
        If FSO.FileExists(Subfolder + "\" + "folder.jpg") Then
    	FSO.MoveFile Subfolder + "\" + "folder.jpg", Subfolder + "\" + "cover.jpg"
        End If
    Next
End Sub

WS*****.Echo "Renaming complete."

Viele Grüße,
haze303

[shootTV]

Zitat von Sneaker King

Du hast nicht alles gelesen oder? Das mag so mit Dateien funktionieren die im selben Ordner sind, aber sicherlich nicht mit Dateien die in ~ 5000 verschiedenen Ordner sind.

ups.. sorry, war mal wieder etwas schnell...