Umgang mit dem Filter beim OpenFileDialog

[dia]

Ich habe leider einen Filter der ganz schön lang ist. Nach genau 256 Zeichen wird jedoch der Filter nicht mehr angezeigt und es folgt die Pfadangabe zu meinem Notes Data Verzeichnis. Hier der Code:

Code

	Dim strFileDialogTitle As String
	Dim strFileDialogFilter As String
	Dim varFileDialogReturn As Variant
	Dim uidocCurrent As NotesUIDocument
	Dim docCurrent As NotesDocument
	Set uidocCurrent = ispGetCurrentUIDocument
	Set docCurrent = ispGetCurrentDocument(uidocCurrent)
	
	strFileDialogTitle = "Datei anhängen"
	strFileDialogFilter = "HTML-Dokumente (*.htm, *.html)|*.htm;*.html|Acrobat (*.pdf)|*.pdf|Word-Dokumente (*.doc, *.dot)|*.doc;*.dot|Excel-Dokumente (*.xls)|*.xls|VISIO-Zeichnung (*.vsd)|*.vsd|Bitmap (*.bmp)|*.bmp|Befehlsskript (*.cmd)|*.cmd|GIF Image (*.gif)|*.gif|Zip Archiv (*.zip)|*.zip"
	
	varFileDialogReturn = uiwsCurrent.OpenFileDialog(False, strFileDialogTitle, strFileDialogFilter )

[Axel]

Hi,

ich glaube da lässt sich nichts machen. Das ist eine interne Beschränkung die sich nicht umgehen lässt.


Axel

[dia]

Hmpf. Dann also doch nen *.* hinten dran hängen. Schade.

Trotzdem Danke.

[TMC]

Außerdem gibt es noch einen Bug bezüglich Fileauswahl, also wenn man mehrere Files gleichzeitig auswählen lässt.

Beides lässt sich aber z.B. über WinAPI lösen:
http://www.atnotes.de/index.php?topic=15730.0