>lcPath = 'c:\temp\' >lcSkeleton = '*.tmp' >declare integer SetFileAttributes in Win32API ; > string @ lpFileName, integer dwFileAttributes >declare short DeleteFile in win32API string @ lpFileName >lnFiles=adir(arrFiles,lcPath+lcSkeleton,'HS') >for ix=1 to lnFiles > SetFileAttributes(lcPath+arrFiles[ix,1], 0) > DeleteFile(lcPath+arrFiles[ix,1]) >endforCetin