GetOpenFilename komplexe wildcards
12.06.2007 14:01:00
Thorlyn
Ich versuchte gerade:
Number = 100
FileFilter = "Specific files (*" & Number & "*.xls),*" & Number & "*.xls,All excel-files (*.xls),*.xls"
'reads "Specific files (*100*.xls),*100*.xls,All excel-files (*.xls),*.xls"
FileName = Application.GetOpenFilename(FileFilter, 1, "Open file")
Leider bekomme ich nur den allgemeineren Filter zur Auswahl (*.xls).
Der andere, eigentlich wichtigere wird gar nicht in der Liste aufgeführt.
Die einschlägige Doku hilft mir nicht weiter, und via google habe ich es nach der vierten Seite aufgegeben.
Funktioniert der speziellere Filter "*foo*.xls" generell nicht oder habe ich ihn irgendwie falsch formuliert?
Falls er nicht geht: Gibts Ideen für einen Workaround?
Ich scheue den Aufwand alle Dateien zu scannen und in einer Combobox o.Ä. aufzulisten (werden ziemlich viele werden).
Für genau sowas gibts ja schliesslich GetOpenFilename...
Lieben Dank im Voraus,
Thorsten