Laufwerk G prüfen: So funktioniert's mit VBA
Schritt-für-Schritt-Anleitung
Um zu prüfen, ob das Laufwerk G: ein lokal gemapptes Laufwerk oder ein Netzwerklaufwerk ist, kannst Du den folgenden VBA-Code verwenden:
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.
-
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
-
Kopiere den folgenden Code in das Modul:
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
-
Schließe den VBA-Editor und gehe zurück zu Excel.
-
Drücke ALT + F8, wähle b aus der Liste und klicke auf Ausführen.
Der Code zeigt Dir eine MessageBox, die den Typ des Laufwerks anzeigt, das Du geprüft hast.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn Du nicht mit VBA arbeiten möchtest, kannst Du auch die Eingabeaufforderung nutzen, um Laufwerke zu prüfen:
- Öffne die Eingabeaufforderung (CMD).
- Gib
net use ein und drücke Enter.
- Überprüfe die Liste der verbundenen Laufwerke. Hier kannst Du sehen, ob G: ein Netzwerklaufwerk ist.
Praktische Beispiele
Angenommen, Du hast ein Netzwerklaufwerk, das auf G: gemappt ist. Mit dem obigen VBA-Code kannst Du schnell herausfinden, ob es sich dabei um ein Netzwerklaufwerk oder ein lokal gemapptes Laufwerk handelt.
Ein Beispiel für die Ausgabe könnte sein:
- Wenn G: ein Netzlaufwerk ist, wird die MessageBox anzeigen: „Netzlaufwerk“.
Tipps für Profis
- Optimiere den VBA-Code, um mehrere Laufwerke gleichzeitig zu prüfen, indem Du eine Schleife implementierst.
- Verwende die
WScript.Network-Objektbibliothek für erweiterte Netzwerkoperationen.
FAQ: Häufige Fragen
1. Wie kann ich den VBA-Code anpassen, um andere Laufwerke zu prüfen?
Du kannst einfach die Variable sLWB im Code auf den gewünschten Laufwerksbuchstaben ändern (z.B. sLWB = "H" für Laufwerk H).
2. Funktioniert dieser Code in Excel 2016?
Ja, der VBA-Code funktioniert in Excel 2016 und neueren Versionen. Stelle sicher, dass Du die Berechtigungen zum Ausführen von Makros hast.