MkDir() (Fehl-) Funktion

  • Excel

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    MkDir() (Fehl-) Funktion

    Hallo Zusammen,

    mir stellt sich aktuell die Frage wo MkDir() einen Ordner erstellt, wenn der Aufruf wie folgt lautet:

    DieseArbeitsmappe:

    Visual Basic-Quellcode

    1. Public Sub testx()
    2. Dim xy As New Directory
    3. xy.Initialize "456"
    4. xy.Create
    5. End Sub


    Klassenmodul Directory:

    Visual Basic-Quellcode

    1. Option Explicit
    3. Private MyDirectoryPath As String
    5. Public Sub Initialize(ByVal DirectoryPath As String)
    6. Dim CheckedPath As String
    7. CheckedPath = Replace(DirectoryPath, "/", "\", 1, -1, vbTextCompare)
    9. MyDirectoryPath = CheckedPath
    10. End Sub
    12. Public Sub Create()
    13. '// Directory exists already.
    14. If Me.Exists = True Then
    15. Exit Sub
    16. End If
    18. 'On Error GoTo CreateDirectoryError
    19. MkDir MyDirectoryPath
    20. 'On Error GoTo 0
    21. Exit Sub
    22. End Sub
    24. '''<summary>Returns True if the folder exists - no matter if it's hidden or not.</summary>
    25. Public Function Exists() As Boolean
    26. '// Folder Attribute | Function Result
    27. '// Normal - True
    28. '// Hidden - True
    29. '// Disconnected - False
    31. On Error GoTo NotConnected
    32. If Len(Dir(MyDirectoryPath, vbDirectory + vbHidden)) <> 0 Then
    33. Exists = True
    34. Else
    35. Exists = False
    36. End If
    37. Exit Function
    39. NotConnected:
    40. Exists = False
    41. End Function


    Normal müsste MkDir() in diesem Fall eine ArgumentException (52) Path is not specified or is empty. werfen.
    Dies geschieht aber bei mir nicht, der Code läuft durch und in einem zweiten Durchlauf sagt mit Me.Exists = True.

    Gruß, FireEmerald

    System: Excel 2010 // Wichtig: Die Excel Datei liegt auf einem Netzwerklaufwerk!

    @Kilian_98 Die Frage ist wieso wirft MkDir() in diesem Fall keine ArgumentException? Dies müsste Sie und macht Sie auch normal, wenn MkDir() außerhalb von dem Klassenmodul steht.

    Siehe: msdn.microsoft.com/en-us/library/k1d22wfh(v=vs.90).aspx


    Mir ist gerade aufgefallen, dass wenn man den Arbeitsmappencode wie folgt ergänzt:

    Visual Basic-Quellcode

    1. Public Sub testx()
    2. Dim strX As String: strX = GetFolder("C:\")
    4. Dim xy As New Directory
    5. xy.Initialize "456"
    6. xy.Create
    7. End Sub
    9. Private Function GetFolder(strPath As String) As String
    10. Dim fldr As FileDialog
    11. Dim sItem As String
    12. Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    13. With fldr
    14. .Title = "Select a Folder"
    15. .AllowMultiSelect = False
    16. .InitialFileName = strPath
    17. If .Show <> -1 Then GoTo NextCode
    18. sItem = .SelectedItems(1)
    19. End With
    21. NextCode:
    22. GetFolder = sItem
    23. Set fldr = Nothing
    24. End Function


    Die Funktion MkDir "456" den Ordner nicht mehr dort anlegt wo die *.xlsm Datei liegt, sondern immer in C:\ ?(

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „FireEmerald“ ()

    Irgendwie habe ich das Gefühl, deine Klasse lässt sich auf drei Einzeiler runterbrechen:

    Visual Basic-Quellcode

    1. Private MyDirectoryPath As String
    2. Public Sub Initialize(ByVal DirectoryPath As String)
    3. MyDirectoryPath = Replace(DirectoryPath, "/", "\")
    4. End Sub
    6. Public Sub Create()
    7. If Not Exists Then MkDir MyDirectoryPath
    8. End Sub
    10. Public Function Exists() As Boolean
    11. Exists = Len(Dir(MyDirectoryPath, vbDirectory + vbHidden)) > 0
    12. End Function
    Zum eigentlichen Problem:
    Der letztlich ausgeführte Befehl lautet MkDir "456"Das ist ein relativer Pfad, also wird das Verzeichnis 456 in deinem Arbeitsverzeichnis angelegt.
    Wenn das C:\ ist, dann wird halt C:\456 angelegt.
    MkDir wirft übrigens keinen Fehler, falls das Verzeichnis bereits existiert.
    Notfalls kannst du die Abfrage auf Exists also auch ganz weglassen.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    FireEmerald schrieb:

    Len(Dir()) wirft z.B. bei einem nicht verbundenen Netzwerkpfad eine Exception
    Auch mit ErrorHandler kann man die Funktion relativ kurz schreiben.

    Visual Basic-Quellcode

    1. ​Public Function Exists() As Boolean
    2. On Error Resume Next
    3. Exists = Len(Dir(MyDirectoryPath, vbDirectory + vbHidden)) > 0
    4. End Function

    FireEmerald schrieb:

    gibt's auch ne Möglichkeit dieses zu ändern?

    ChDir
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Funktioniert bei dieser Funktion.

    Visual Basic-Quellcode

    1. Public Function Exists() As Boolean
    2. On Error Resume Next
    3. Exists = Len(Dir(MyDirectoryPath, vbDirectory + vbHidden)) > 0
    4. End Function

    Aber ich bin kein Freund von On Error Resume Next, weil dort der eigentliche Fehler nicht behandelt wird. Ergo kann man bei On Error Resume Next nicht wirklich von ErrorHandling sprechen, sondern eher von Fehlerunterdrückung. VBA ist was das angeht meiner Meinung nach eh ziemlich unpraktisch/unmöglich.

    Ich stelle mir unter Errorhandling sowas vor:

    Visual Basic-Quellcode

    1. Public Sub Delete()
    2. If Me.Exists Then
    3. On Error GoTo DeleteDirectoryError
    4. RmDir MyDirectoryPath
    5. On Error GoTo 0
    6. End If
    7. Exit Sub
    9. DeleteDirectoryError:
    10. Select Case Err.Number
    11. Case 52
    12. '// ArgumentException | Path is not specified or is empty.
    13. Case 75
    14. '// IOException | Target directory contains files.
    15. Case 76
    16. '// FileNotFoundException | Directory does not exist.
    17. Case Else
    18. '// Unkown
    19. End Select
    20. ' Couldn't delete directory!
    21. End Sub

    Oder statt MKDIR einfach die API.Funktion »MakeSureDirectoryPathExists« verwenden


    Visual Basic-Quellcode

    1. Option Explicit
    3. Declare Function MakePath Lib "imagehlp.dll" _
    4. Alias "MakeSureDirectoryPathExists" _
    5. (ByVal lpPath As String) As Long
    7. Sub test()
    8. Dim Pfad As String, x As Boolean
    9. Pfad = "d:\####\a\b\c\"
    11. x = MakePath(Pfad)
    13. If x Then
    14. MsgBox "OK"
    15. Else
    16. MsgBox "Fehler"
    17. End If
    19. End Sub

    FireEmerald schrieb:

    ich bin kein Freund von On Error Resume Next
    Ich auch nicht, ausser zur Fehlerunterdrückung.
    Und im Falle deiner Exists-Routine kannst du nur ein Boolean zurückgeben.
    Und das ist nun mal True, wenn das Verzeichnis zugriffsbereit ist und in allen anderen Fällen False.
    Da kannst du hundert verschiedene Fehlermöglichkeiten abfangen. Das Ergebnis bleibt dasselbe.

    Ansonsten kannst du deiner Exists-Routine als Return-Parameter ein Integer geben, um granularer zu werden.
    Aber auch dann kannst du ganz einfach Err.Number zurückgeben.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „petaod“ ()

Facebook
Telefonspende