aletri
Goto Top

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?

Content-Key: 273938

Url: https://administrator.de/contentid/273938

Ausgedruckt am: 28.03.2024 um 16:03 Uhr

Mitglied: bastla
bastla 06.06.2015 aktualisiert um 15:09:13 Uhr
Goto Top
Hallo aletri (für eine kurze Begrüßung ist eigentlich immer Zeit face-wink)!

Ungetestet etwa so:
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
Grüße
bastla
Mitglied: aletri
aletri 06.06.2015 um 20:11:53 Uhr
Goto Top
Hallo bastla
Sorry für die fehlende Begründung, war nicht so gemeint!
1000 Dank für di schnelle Antwort.
Sobald ich dein Script ausprobiert habe werde dann Feedback geben!
Bin gespannt!!
Mitglied: aletri
aletri 06.06.2015 um 20:12:32 Uhr
Goto Top
Meinte Begrüßung !!!
Mitglied: aletri
aletri 07.06.2015 um 08:16:47 Uhr
Goto Top
Guten Morgen Bastla

Super funktioniert ...nochmals besten Dank.