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