Prüfen wie Laufwerk verbunden ist? 28.03.2020 12:12:19 Sergej Hallo Leute, wie kann ich bitte per VBA prüfen, ob Laufwerk G:\ mit "subst" lokal gemaptes Laufwerk ist, oder handelt sich hier um ein Netzwerklaufwerk der auch UNC-Pfad hat? Beste Grüße, Sergej
Prüfen wie Laufwerk verbunden ist? 28.03.2020 13:30:00 Anton Hallo Sergej, so?: Code in Zwischenablage: Sub b() Dim fso As Object, sLWB As String, msg As String sLWB = "G" 'anpassen Set fso = CreateObject("Scripting.FileSystemObject") If fso.DriveExists(sLWB) Then Select Case fso.getdrive(sLWB).DriveType Case 0: msg = "Unbekanntes Laufwerk" Case 1: msg = "Wechselmedium" Case 2: msg = "Festplatte" Case 3: msg = "Netzlaufwerk" Case 4: msg = "CD-ROM" Case 5: msg = "RAM-Laufwerk" End Select End If MsgBox msg End Sub mfg Anton Anzeige
AW: Prüfen wie Laufwerk verbunden ist? 28.03.2020 13:46:30 Sergej Hallo Anton, besten Dank. Funktioniert perfekt. Viele Grüße, Sergej