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?
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?
Please also mark the comments that contributed to the solution of the article
Content-Key: 273938
Url: https://administrator.de/contentid/273938
Printed on: April 24, 2024 at 11:04 o'clock
4 Comments
Latest comment
Hallo aletri (für eine kurze Begrüßung ist eigentlich immer Zeit )!
Ungetestet etwa so:
Grüße
bastla
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
bastla