home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 13
/
mediashare_13.zip
/
mediashare_13
/
ZIPPED
/
NETWORK
/
GP25.ZIP
/
FKILLALL.PRG
< prev
next >
Wrap
Text File
|
1993-03-15
|
392b
|
19 lines
* The purpose of this function is to erase all files match a file spec
*
parameter pcFName
private cFName, cFPath, nCounter
pcFName = alltrim(upper(pcFName))
nCounter = 0
cFPath = path(pcFName)
cFName = sys(2000, pcFName)
do while not empty(cFName)
cFName = cFPath + cFName
erase (cFName)
cFName = sys(2000, pcFName, 1)
nCounter = nCounter + 1
enddo
return nCounter