Hallo,
ich versuche gerade zum ersten Mal, OpenFileDialog auf bestimmte Dateitypen einzuschränken.
Dafür habe ich folgende Code geschrieben :
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
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 ?
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 :
filenames = ws.OpenFileDialog(False, "Bitte wählen sie die gewünschte Datei aus.", "PPT|*.ppt|PPS|*.pps", "M:")
Und dann kommt sowas bei raus :
So langsam versteh ichs nicht mehr :-\
Ergebnis ist so zwar genau richtig, aber ich will da eigentlich was anderes drin stehen haben als Text. >:(
filenames = ws.OpenFileDialog(False, "Bitte wählen sie die gewünschte Datei aus.", "Powerpoint|*.ppt|Powerpoint2|*.pps", "M:")
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.
filenames = ws.OpenFileDialog(False, "Bitte wählen sie die gewünschte Datei aus.", "Powerpoint|*.ppt|Powerpoint Pack and Go|*.pps||", "M:")
Anbei der Link zum Thread bei LDD :
Klick mich (http://www-10.lotus.com/ldd/46dom.nsf/55c38d716d632d9b8525689b005ba1c0/545b15d9bc48582d85256a780041bc6d?OpenDocument)