Posted 16 January 2006 - 17:09
//--------------------------------------------------------------------------
// Function: DeleteDirectory
// Purpose: Deletes a directory even if it has readonly files
//--------------------------------------------------------------------------
function DeleteDirectory(directory)
STRING fileName;
begin
while (FindFile(directory, "*.*", fileName) = 0) //Finds all files in a directory
SetFileInfo(directory ^ fileName, FILE_ATTRIBUTE, FILE_ATTR_NORMAL, ""); //resets files attributes to NORMAL
DeleteFile(directory ^ fileName); //Delete File
endwhile;
DeleteDir(directory, ALLCONTENTS);
end;