DEF FN_delfile(file$) LOCAL dir%, sh% ON ERROR LOCAL IF ERR = 189 THEN = FALSE DIM dir% LOCAL 317 SYS "FindFirstFile", file$, dir% TO sh% IF sh% <> -1 THEN SYS "FindClose", sh% ELSE = FALSE OSCLI "DELETE """ + file$ + """" = TRUE
|
F% = OPENIN(file$) IF F% CLOSE #F% : PRINT "File exists"
DEF FN_delfile(file$) ON ERROR LOCAL = FALSE OSCLI "DELETE """ + file$ + """" = TRUE
DEF FN_delfile(file$) LOCAL R% SYS "DeleteFile", file$ TO R% = (R% <> 0)