@main[]
$sText[zigi]
$sFileName[218-?-.txt]

^sText.save[$sFileName]
file was saved (^check[])<br />

^file:delete[$sFileName]

file was deleted (^check[])<br />

@check[]
$t[^file:list[./;-\.txt^$]]
$result[^if($t==1 && $t.name eq "218-_3F-.txt"){EXIST}{DOES NOT EXIST}]