Scripting.FileSystemObject
ing.grohn
folgendes Programm(chen) lief bei mir:
Sub LaufWerke()
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objDrive In colDrives
MsgBox "Laufwerksbuchstabe: " & objDrive.DriveLetter
Next
End Sub
jetzt plötzlich nicht mehr!
Was fehlt da?
(hab den Rechner relativ neu installiert)
Für eine Antwort bedanke ich mich
mit freundlichen GRüßen
ALbrecht