FUNCTION RemoveDirectory lParameters dirpath local entries, aRemDirs[1] dirpath = addbs(dirpath) Dele file (dirpath+"*.*") entries = adir(aRemDirs,dirpath+"*.*","D") If entries >= 0 for i = 1 to entries If !Inlist(aRemDirs(i,1),".","..") RemoveDirectory(dirpath+aRemDirs(i,1)+"\") Endif Next Endif RD (dirpath) Return && RemoveDirectoryAny luck?