Domino 9 und frühere Versionen > Entwicklung

Anzeige kryptischer Zeichen bei ws.OpenFileDialog

(1/2) > >>

Driri:
Hallo,

ich versuche gerade zum ersten Mal, OpenFileDialog auf bestimmte Dateitypen einzuschränken.

Dafür habe ich folgende Code geschrieben :


--- Code: --- Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim filenames As Variant

Set uidoc = ws.CurrentDocument

filenames = ws.OpenFileDialog(False, "Bitte wählen sie die gewünschte Datei aus.", "PPT|*.ppt|PPS|*.pps", "M:")

If Isempty(filenames) Then
Messagebox "Es wurde keine Datei ausgewählt.", 0, "Fehler"
Exit Sub
Else
Call uidoc.FieldSetText("VDatei", filenames(0))
End If

--- Ende Code ---

Funktioniert auch generell wunderbar, allerdings habe ich den komischen Effekt, daß mir in der Auswahlliste der Dateitypen neben den beiden vordefinierten Dateitypen noch x weitere angezeigt werden, die aus kryptischen Zeichen bestehen.

Ist das nen Bug oder spinnt mein Client ? Kennt das jemand ?

Driri:
P.S. : Hab gerade mal die Cache.dsk, desktop5.dsk und bookmark.nsf gelöscht. Kein Effekt.

Testclient ist 5.0.13.

Driri:
Wird immer lustiger. Kollegen haben das selbe Phänomen, ich gehe also mal nicht davon aus, daß es an meinem Client liegt. Kollegen haben als Client 5.0.11, daher schließe ich jetzt mal nen Versionsproblem auch aus.

Jetzt hab ich die Einträge mal geändert :


--- Code: ---filenames = ws.OpenFileDialog(False, "Bitte wählen sie die gewünschte Datei aus.", "PPT|*.ppt|PPS|*.pps", "M:")

--- Ende Code ---

Und dann kommt sowas bei raus :

Driri:
So langsam versteh ichs nicht mehr  :-\

Ergebnis ist so zwar genau richtig, aber ich will da eigentlich was anderes drin stehen haben als Text.  >:(


--- Code: ---filenames = ws.OpenFileDialog(False, "Bitte wählen sie die gewünschte Datei aus.", "Powerpoint|*.ppt|Powerpoint2|*.pps", "M:")

--- Ende Code ---

Driri:
So, hab gerade ne Lösung bei LDD gefunden. Man muß scheinbar mit nem doppelten Pipe abschließen.

Tolle Sache, steht so natürlich auch nicht in der Hilfe.


--- Code: ---filenames = ws.OpenFileDialog(False, "Bitte wählen sie die gewünschte Datei aus.", "Powerpoint|*.ppt|Powerpoint Pack and Go|*.pps||", "M:")

--- Ende Code ---

Anbei der Link zum Thread bei LDD :

Klick mich

Navigation

[0] Themen-Index

[#] Nächste Seite