Filter-Fehler im FileDialogOpen?

18/12/2008 - 17:55 von Lorenz Hölscher | Report spam
Hallo NG,

es scheint, dass der FileDialogOpen Probleme (oder dokumentierte
Màngel?) hat, wenn ich Filter außerhalb der Endung setzen will. In
Word2003 ging das noch, in Word2007 nicht mehr.

Folgender Code zeigt zwar den Filter "*.kopf", schrànkt jedoch nicht
auf die gewünschten "*_H.kopf"-Filter ein. Die Änderung in
.Filters.Add "Kopfzeile", "*_H.kopf"
ist nicht möglich.

Habt Ihr noch einen Tipp, wie ich es ohne API mit Word2007-Methoden
auf "*_H.kopf" einschrànken kann?
_________________
Sub DateiAuswahl()
Dim doe As FileDialog

Set doe = Application.FileDialog(msoFileDialogOpen)
With doe
.AllowMultiSelect = False
.Filters.Clear

.Title = "Testdateien"
.InitialFileName = "c:\Program Files\Demo\*_H.kopf"
.Filters.Add "Kopfzeile", "*.kopf"
If .Show() Then
MsgBox doe.SelectedItems(1)
End If
End With
End Sub
___________________


tschö, Lorenz

http://www.cls-software.de/cls_soft...07VBA.aspx
 

Lesen sie die antworten

#1 Christian Freßdorf
04/01/2009 - 13:07 | Warnen spam
Hallo Lorenz

Folgender Code zeigt zwar den Filter "*.kopf", schrànkt jedoch nicht
auf die gewünschten "*_H.kopf"-Filter ein.



habe ich hier keine Probleme mit unter WindowsXP.

Verwendest du evtl. Vista?


Die Änderung in
.Filters.Add "Kopfzeile", "*_H.kopf"
ist nicht möglich.



ja, da nur die Extension gesetzt werden kann. Du setzt aber mehr.


Gruß
Christian

Ähnliche fragen