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
EndIf
MarcelX