On Error Goto notkilled
ife = MsgBox("Do you REALLY want to delete this beautiful document called " + FileName$() + "????", "Licence to kill", 36)
If ife = - 1 Then
	victim$ = FileName$()
	DocClose 2
	Kill victim$
	Print "The file " + victim$ + " is extincted..."
Else
End If
notkilled: