Vbs - Datei wenn vorhanden (alle Laufwerke) umbenennen

Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists("C:\Dir\File.xxx") Then
fso.MoveFile "C:\Dir\File.xxx" , "C:\Dir\File.xxx"
ElseIf Not fso.FileExists("C:\Dir\File.xxx") Then
End If

Wie kann man Script so umschrieben, dass nicht nur "C" Laufwerk sondern "alle" Festplatten berücksichtigt werden?

Set fso = CreateObject("Scripting.FileSystemObject")  
For Each d in fso.Drives
    If d.DriveType = 2 Then 'Festplatte  
        LW = d.DriveLetter
        If fso.FileExists(LW & ":\Dir\File.xxx") Then  
            fso.MoveFile LW & ":\Dir\File.xxx" , LW & ":\Dir\File.xxx"  
        End If
    End If
Next