$DateiPfad=FileOpenDialog("DEFCAB-Chat","@MyDocumentsDir","Alle Dateitypen (*.*)",3)
$Handle=FileOpen($DateiPfad,16)
$DateiInhalt=FileRead($Handle)
FileClose($handle)
$Suffix=StringSplit($DateiPfad,".")
$RSuffix="."&$Suffix[2]
$DateiNameMitS=StringRight($DateiPfad,StringInStr($DateiPfad,"\",0,-1))
$DateiName=StringTrimRight($DateiNameMitS,StringLen($RSuffix))
$Alles=$DateiName&","&$RSuffix&","&$DateiInhalt
$Splitted=StringSplit($Alles,",")
$DateiInhalt=$Splitted[3]
$DateiName=BinaryToString($Splitted[1])
$Suffix=StringTrimLeft(BinaryToString($Splitted[2]),1)
;MsgBox(0,"",$DateiInhalt) <--- kleines Gimmick auf Wunsch?
$DateiPfad=FileSaveDialog("DEFCAB-Chat","@MyDocumentsDir","Alles (*.*)|Dateiformat des Senders(*."&$Suffix&")",18,$DateiName)
$Dateihandle=FileOpen($DateiPfad,18)
FileWrite($Dateihandle,$DateiInhalt)
FileClose($Dateihandle)