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 && RemoveDirectory