Dateiauswahl per API

Die Funktionen aufrufen

Möchten Sie nun ein Dialogfeld anzeigen, das den Benutzer zur Auswahl einer Datei beziehungsweise Angabe eines Dateinamens auffordert, müssen Sie dazu nur die Funktion Dateiauswahl aufrufen. Im einfachsten Fall sieht das wie folgt aus

Msgbox Dateiauswahl()

und würde dann den Dialog Datei öffnen anzeigen. Die fehlenden Parameter werden innerhalb der Funktion durch ihre Standardwerte ersetzt (Bild 1).

Bild 1: Der Standard-Öffnen- Dialog.
Bild 1: Der Standard-Öffnen- Dialog.

Wenn Sie beispielsweise das anzuzeigende Verzeichnis oder den Dialogtitel festlegen möchten, können Sie diese genauso als Parameter übergeben wie zusätzliche Dateifilter, die Sie vorab mit der AddFilter-Funktion einer Variablen zuweisen (Listing 3). Die Prozedur in Listing 3 ruft zuerst den Dialog Datei öffnen und danach den Dialog Speichern unter auf.

Bild 2: Der Dialog Datei öffnen.
Bild 2: Der Dialog Datei öffnen.

Function DialogeTesten()
Dim strDateityp As String
Dim lngOptionen As Long
strDateityp = AddFilter(strDateityp, "Access-Datenbanken (*.mda, *.mdb)", _
"*.MDA;*.MDB")
strDateityp = AddFilter(strDateityp, "Text-Dateien (*.txt)", "*.TXT")
strDateityp = AddFilter(strDateityp, "Alle Dateien (*.*)", "*.*")
MsgBox "Ihre Wahl: " & Dateiauswahl(AnfangsVerzeichnis:="C:\", _
Filter:=strDateityp, FilterIndex:=3, Flags:=lngOptionen, _
DialogTitel:="Bitte Datei wählen!")
MsgBox "Ihre Wahl: " & Dateiauswahl(AnfangsVerzeichnis:="C:\", _
Filter:=strDateityp, FilterIndex:=3, Flags:=lngOptionen, _
DialogTitel:="Bitte Speicherziel wählen!", boolOeffnen:=False)
MsgBox Dateiauswahl()
End Function