lcFolder = ADDBS("c:\tmpfox\") FOR i=1 TO ADIR(laFiles, lcFolder + "*.*") ERASE (lcFolder + laFiles(i,1)) ENDFOR>
local nloop,cfilename,cOutput >Local array aFiles(1) >cOutput='c:\tmpfox\' >set default to (cOutput) >nFiles=adir(aFiles) >If nFiles>0 > for nLoop=1 to nFiles > cFilename=cOutput+aFiles[nLoop,1] > delete file (cFilename) > endfor >Endif >set default to (oApp.startdir) >return .t.>I afraid about any unexpected problem that will cause the 'set defa to local' to fail and the user will delete thr real data.