Attempt to delete a file and return whether it succeeded or not.
Code: Select all
Global base
base = {}
Function base:DeleteFile(filename$)
Local err
ExitOnError(False)
If Exists(filename$) = True
err = False
DeleteFile(filename$)
Else
err = True
EndIf
ExitOnError(True)
Return (err)
EndFunction