PROCEDURE Del( pcMask )
* Del( Skeleton )
LOCAL lcPath, lcFile, lnRes, lnDelRes
lnRes = 0
DECLARE INTEGER DeleteFile IN kernel32 ;
STRING lpFileName
lcPath = ADDBS(JUSTPATH(pcMask))
lcFile = sys( 2000, pcMask ) && Locate first file with this mask.
do while .Not. Empty( lcFile )
delete FILE(lcPath+lcFile)
lnDelRes = DeleteFile(pcFile)
if lnDelRes=0
lnRes = lnRes+1
endif
lcFile = sys( 2000, pcMask, 1 ) && find next matching file.
enddo
RETURN lnRes
ENDPROC
PROCEDURE SafeDel( pcFile )
* Delete a file without throwing an error.
DECLARE INTEGER DeleteFile IN kernel32 ;
STRING lpFileName
res = DeleteFile(pcFile)
RETURN res<>0
ENDPROC