GELÖST: SaveFileRequester Extension
Verfasst: 20.06.2018 09:56
Hallo,
es geht um den Fall wo keine Extension in der Dateiname angegeben wurde.
Beim wählen der Typ "RichText", sollte als ext "rtf" gesetzt werden und beim Auswahl von "Text" sollte "txt" gesetzt werden:
Wie kann ich das lösen?
Danke und Gruß
MarcelX
es geht um den Fall wo keine Extension in der Dateiname angegeben wurde.
Beim wählen der Typ "RichText", sollte als ext "rtf" gesetzt werden und beim Auswahl von "Text" sollte "txt" gesetzt werden:
Wie kann ich das lösen?
Code: Alles auswählen
File.s = SaveFileRequester("Name", "", "RichText (*.rtf)|*.rtf|Text (*.txt)|*.txt", 0)
If File
ext.s = GetExtensionPart(File)
If ext = ""
ext = "rtf"
File+".rtf"
EndIf
If ext = "rtf"
Debug "save rtf"
Else
Debug "save txt"
EndIf
EndIfMarcelX