lcFile="yourfile.ext" If Setattr(fullpath(lcFile)),'') erase (lcFile) Else Messagebox("Can't delete "+lcFile) Endif FUNCTION SetAttr PARAMETER zFileName, zAttribute zAttribute = UPPER(zAttribute) Private nAttribute nAttribute=0 If 'S'$zAttribute && System nAttribute = nAttribute + 4 Endif If 'H'$zAttribute && Hidden nAttribute = nAttribute + 2 Endif If 'R'$zAttribute && ReadOnly nAttribute = nAttribute + 1 Endif If 'A'$zAttribute && Archive nAttribute = nAttribute + 32 Endif If 'N'$zAttribute && Normal nAttribute = nAttribute + 128 Endif declare integer SetFileAttributes IN kernel32 STRING, INTEGER Return SetFileAttributes(zFileName,nAttribute)=1>Hi all