Willkommen bei Team-Moeller.de

Diese Funktion ist in folgenden Access-Versionen verfügbar: 2000, 2002, 2003, 2007, 2010

Zeigt den Office-Dateiauswahl-Dialog an (ohne das ein Verweis auf die Office-Bibliothek erforderlich ist).

Function GetFileName(hWndOwner As Long, AppName As String, DlgTitle As String, OpenTitle As String, File As String, InitialDir As String, Filter As String, FilterIndex As Long, View As Long, flags As Long, fOpen As Boolean) As Long

0, wenn eine Datei ausgewählt wurde.
-302, wenn der Dialog (ohne Auswahl) abgebrochen wurde.

Dim hwndOwner As Long
Dim strAppName As String
Dim strDlgTitle As String
Dim strOpenTitle As String
Dim strFile As String
Dim strInitialDir As String
Dim strFilter As String
Dim lngFilterIndex As Long
Dim lngView As Long
Dim lngflags As Long
Dim fOpen As Boolean
Dim intI As Integer

'Werte übernehmen
hwndOwner = Me.Hwnd
strDlgTitle = Nz(Me!txtDialogTitel, "")
strOpenTitle = Nz(Me!txtOpenTitel, "")
strFile = ""
strInitialDir = Nz(Me!txtStartVerzeichnis, "")
strFilter = Nz(Me!txtFilter, "")
lngFilterIndex = Nz(Me!txtFilterIndex, 0)
lngView = Nz(Me!txtView, 0)
lngflags = Nz(Me!txtFlags, 0)
fOpen = Me!chkOpen

WizHook.Key = 51488399
If WizHook.GetFileName(hwndOwner, strAppName, strDlgTitle, strOpenTitle, _
      strFile, strInitialDir, strFilter, lngFilterIndex, lngView, _
      lngflags, fOpen) = 0 Then
  If InStr(strFile, vbTab) = 0 Then
    MsgBox strFile, vbInformation, "Auswahl:"
  Else
    intI = 1
    While InStr(intI + 1, strFile, vbTab) > 0
      MsgBox Mid$(strFile, intI + 1, InStr(intI + 1, strFile, vbTab) - intI)
      intI = InStr(intI + 1, strFile, vbTab)
    Wend
    MsgBox Right$(strFile, Len(strFile) - intI)
  End If
End If

Wenn kein Startverzeichnis angegeben wird, beginnt der Dialog im aktuellen Verzeichnis (CurDir).
Wenn das Startverzeichnis nicht existiert, beginnt der Dialog im Ordner "Eigene Dateien".

Wenn kein Filter übergeben wird, verwendet der Dialog "Alle Dateien (*.*). Wenn ein FilterIndex angegeben wird, der nicht vorhanden ist, wird der erste Filter verwendet.

Wenn ein Dialog zur Ordnerauswahl geöffnet wird, muss für den Parameter "fOpen" der Wert "True" übergeben werden. Sonst kann kein Ordner ausgewählt werden.

Die Auswahl für den Parameter "View" ist nur wirksam, wenn bei "Flags" der Wert 64 (View berücksichtigen) verwendet wird.

Das Kennzeichen "Mehrfachauswahl" wird nur berücksichtigt, wenn der Parameter "fOpen" den Wert "True" hat.