Wie kann ich mittels VBA überprüfen, ob der Zugriff auf ein Laufwerk möglich ist, ohne das Kommando dir und ohne das Scripting.FileSystemObject?

Um in VBA zu überprüfen, ob der Zugriff auf ein Laufwerk möglich ist, ohne das Kommando `dir` und ohne das `Scripting.FileSystemObject` zu verwenden, die `GetAttr-Funktion verwendet. Diese Funktion gibt die Attribute einer Datei oder eines Verzeichnisses zurück. Wenn der Zugriff auf das Laufwerk nicht möglich ist, wird ein Fehler ausgelöst, den man abfangen kann.

Hier ist ein Beispiel, wie das gemacht werden kann:

```vba
Function IsDriveAccessible(drivePath As String) As Boolean
On Error GoTo ErrorHandler
' Versuche, die Attribute des Laufwerks abzurufen
Dim attr As Long
attr = GetAttr(drivePath)
' Wenn kein Fehler auftritt, ist das Laufwerk zugänglich
IsDriveAccessible = True
Exit Function

ErrorHandler:
' Wenn ein Fehler auftritt, ist das Laufwerk nicht zugänglich
IsDriveAccessible = False
End Function
```

Diese Funktion kann dann wie folgt aufgerufen werden:

```vba
Sub TestDriveAccess()
Dim drivePath As String
drivePath = "C:\" ' Beispiel für das Laufwerk C:

If IsDriveAccessible(drivePath) Then
MsgBox "Das Laufwerk ist zugänglich."
Else
MsgBox "Das Laufwerk ist nicht zugänglich."
End If
End Sub
```

In diesem Beispiel wird versucht, die Attribute des angegebenen Laufwerks abzurufen. Wenn dies erfolgreich ist, wird `True` zurückgegeben, andernfalls `False`.