Datei-Auswählen-Dialog (Mehrfachauswahl) - gesperrter Ordner

  • Access

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von ThomasLx.

    Datei-Auswählen-Dialog (Mehrfachauswahl) - gesperrter Ordner

    Hallo zusammen,
    ich habe ein Problem in einer Datenbankprogrammierung.
    Ich verwende zum auswählen von Dateien das folgende Modul:
    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Public Function DateiOeffnenMulti(sWindowTitle As String, Optional sButtonTitle As String = "Öffnen", _
    2. Optional sFilter As String = "Alle Dateien|*.*") As Variant
    3. ' ----------------------------------------------------------------------------------------
    4. ' Beschreibung:
    5. ' erstellt einen Datei-Öffnen-Dialog mit Mehrfachauswahl
    6. '
    7. ' Paramter:
    8. ' sWindowTitle Titel des Datei-Öffnen-Dialogs
    9. ' sButtonTitle Titel des Öffnen-Buttons
    10. ' sFilter Dateifilter:
    11. ' Spezielles Format
    12. ' -> "NAME der Dateigruppe|*.end1; *.end2; *.end3" & chr(0) & "2. Gruppe|*.*"
    13. '
    14. ' Rückgabe:
    15. ' Variant-Array Erfolg: Vollständige Pfade von Dateiauswahl
    16. ' Abbrechen: Erstes element = 0
    17. ' ----------------------------------------------------------------------------------------
    19. Dim dlg As FileDialog
    20. Dim varArrAuswahl() As Variant
    21. Dim varSelected As Variant
    22. Dim varFilterEntries As Variant
    23. Dim varFilterEntry As Variant
    24. Dim i As Integer
    25. Set dlg = Application.FileDialog(msoFileDialogFilePicker)
    28. ' Filter aus String generieren
    29. varFilterEntries = Split(sFilter, Chr(0))
    31. With dlg
    32. .AllowMultiSelect = True
    33. .Filters.Clear
    34. For i = 0 To UBound(varFilterEntries)
    35. varFilterEntry = Split(varFilterEntries(i), "|")
    36. .Filters.Add varFilterEntry(0), varFilterEntry(1)
    37. Next
    38. .InitialView = msoFileDialogViewThumbnail
    39. .Title = sWindowTitle
    40. .ButtonName = sButtonTitle
    41. If .Show Then
    42. i = 0
    43. For Each varSelected In .SelectedItems
    44. If i = 0 Then
    45. ReDim Preserve varArrAuswahl(1)
    46. Else
    47. ReDim Preserve varArrAuswahl(UBound(varArrAuswahl) + 1)
    48. End If
    49. varArrAuswahl(i) = varSelected
    50. i = i + 1
    51. Next
    52. DateiOeffnenMulti = varArrAuswahl
    53. Else
    54. DateiOeffnenMulti = 0
    55. End If
    56. End With
    57. Set dlg = Nothing
    59. End Function

    Leider kann ich nachdem ich Dateien aus einem Ordner ausgewählt habe, diesen Ordner nicht mehr löschen.
    Ich muss entweder immer wieder Access schließen oder eine Datei aus einem anderen Odner auswählen.
    Vermutlich müssen irgendwo ein Objekt, welches auf die Dateien zugreift entladen werden.
    Die Zeile 57 habe ich schon hinzugefügt, jedoch leider ohnen Erfolgt.

    Aufrufen tue ich den Dialog über den folgenden Programmcode:

    Visual Basic-Quellcode

    1. Dim vararrDateien As Variant
    2. vararrDateien = DateiOeffnenMulti("Bitte Vorrichtungsfotos auswählen", "Fotos auswählen", "Bilder|*.jpg; *.jpeg; *.bmp")

    Woran könnte das liegen und wie kann ich da etwas machen?

    Das liegt daran, dass der Ordner, auf den zuletzt mit dem FileDialog zugegriffen wurde, von Windows als aktuelles Verzeichnis gesetzt wird.
    und das aktuelle Verzeichnis kann man nicht löschen oder umbenennen.
    Näheres kannst du hier nachlesen -> The curse of the current directory und Why does the common file dialog change the current directory?
    Beheben kannst du es, indem du einen anderen Ordner auswählst.
    z.B. mit

    Visual Basic-Quellcode

    1. ChDir "C:\"

Facebook
Telefonspende