Forums Neueste Beiträge
 

Datei Auswahldialog: Filter für bestimmte Dateitypen + alle Dateitypen (*.*)

22/04/2010 - 09:47 von Stefan Paesch | Report spam
Moin zuammen,

ich habe mir vor langer Zeit mal einen FileDialog zusammen gegooglet.
Vorgefiltert sind in diesem Bsp. ( .Filters.Add) *.mdb + accdb.*; ich
möchte aber, wenn ich den Button im Dialog betàtige auch den Filter
lösen können und alle Datein (*.*) angezeigt bekommen.

Kann mir jemand erklàren, wie man so etwas bewerkstelligt?

Code-Auszug:

Dim fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogFilePicker)

With fd
.AllowMultiSelect = False
.ButtonName = "auswàhlen"
.InitialFileName = "D:\Datenbanken"
.Filters.Clear
.Filters.Add "Access", "*.mdb, *.accdb"
.InitialView = msoFileDialogViewProperties
..

Vielen Dank und viele Grüße Stefan
Acc2007 SP 2, Vista 64 bit Ultimate
 

Lesen sie die antworten

#1 Gunter Avenius
22/04/2010 - 10:07 | Warnen spam
Hallo Stefan,

Stefan Paesch schrieb folgendes:
ich habe mir vor langer Zeit mal einen FileDialog zusammen gegooglet.
Vorgefiltert sind in diesem Bsp. ( .Filters.Add) *.mdb + accdb.*; ich
möchte aber, wenn ich den Button im Dialog betàtige auch den Filter
lösen können und alle Datein (*.*) angezeigt bekommen.

Kann mir jemand erklàren, wie man so etwas bewerkstelligt?

Code-Auszug:

Dim fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogFilePicker)

With fd
.AllowMultiSelect = False
.ButtonName = "auswàhlen"
.InitialFileName = "D:\Datenbanken"
.Filters.Clear
.Filters.Add "Access", "*.mdb, *.accdb"
.InitialView = msoFileDialogViewProperties
..

Vielen Dank und viele Grüße Stefan
Acc2007 SP 2, Vista 64 bit Ultimate




noch ein zusaàtzliches .Filters.Add sollte helfen:
...
.Filters.Add "Access", "*.mdb, *.accdb"
.Filters.Add "Alle Dateien", "*.*"
...

Gruß
Gunter
__________________________________________________________
Access FAQ: http://www.donkarl.com
home: http://www.avenius.com - http://www.AccessRibbon.de
http://www.ribboncreator.de

Ähnliche fragen