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?