2 Fragen zu Filesystemobject

Um einen Dateipfad mit dem `FileSystemObject` in VBA (Visual Basic for Applications) zu zerlegen und dabei sicherzustellen, dass auch fehlerhafte Dateiangaben zu keinem Fehler führen, kannst du den folgenden Ansatz verwenden: 1. Erstelle eine Instanz des `FileSystemObject`. 2. Verwende die Methoden des `FileSystemObject`, um den Pfad zu zerlegen. 3. Fange mögliche Fehler ab, um sicherzustellen, dass das Programm nicht abstürzt. Hier ist ein Beispiel, wie das in VBA aussehen könnte: ```vba Sub ZerlegeDateipfad(pfad As String) Dim fso As Object Dim folderPath As String Dim fileName As String Dim fileExtension As String On Error GoTo ErrorHandler ' Fehlerbehandlung aktivieren ' Erstelle eine Instanz des FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") ' Zerlege den Pfad If fso.FileExists(pfad) Or fso.FolderExists(pfad) Then folderPath = fso.GetParentFolderName(pfad) fileName = fso.GetBaseName(pfad) fileExtension = fso.GetExtensionName(pfad) ' Ausgabe der zerlegten Teile Debug.Print "Ordnerpfad: " & folderPath Debug.Print "Dateiname: " & fileName Debug.Print "Dateierweiterung: " & fileExtension Else Debug.Print "Der angegebene Pfad ist ungültig oder existiert nicht." End If Exit Sub ' Beende das Sub, um die Fehlerbehandlung zu umgehen ErrorHandler: Debug.Print "Ein Fehler ist aufgetreten: " & Err.Description End Sub ``` In diesem Beispiel wird der Dateipfad in den Ordnerpfad, den Dateinamen und die Dateierweiterung zerlegt. Wenn der Pfad ungültig ist oder nicht existiert, wird eine entsprechende Meldung ausgegeben. Die Fehlerbehandlung sorgt dafür, dass das Programm nicht abstürzt, wenn ein Fehler auftritt.

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`.