Visual FoxPro generates an error message if you attempt to remove a directory or folder that is not empty.

***********************************************************************************************
*                     Функция удаления директории
*
*                Обращение:
*                          del_tree(cdir), где
*                      cdir - директория, котоорую нужно удалить
*        При наличиии ощибок (о них выдаются сообщения) функция возвращает .F.,
*           при их отсутствии - .T.
*                                        Алексенко Е.Н.      15.01.2003                                                  *
*                              дополнено Пешковым В.Г.      15.10.2003 г.
***********************************************************************************************
Function del_tree(cdir)
**************************************************************************************
*                Проверка входных условий                                            *
**************************************************************************************
    If Vartype(cdir)# "C"
        Messagebox("Неправильно введен путь !", 0+64+0, "Внимание ...")
        Return .F.
    Endif
    If At("\",cdir) = 0
        Messagebox("Неправильно введен путь !", 0+64+0, "Внимание ...")
        Return .F.
    Endif
    If !("\"$ cdir)
        Messagebox("Неправильно введен путь !", 0+64+0, "Внимание ...")
        Return .F.
    Endif
    cdir = Upper(Alltrim(cdir))
    If Substr(cdir, Len(cdir), Len(cdir)) # "\"
        cdir = cdir + "\"
    Endif .F.
    If !Directory(cdir)
        Messagebox("Такой директории не существует !", 0+64+0, "Внимание...")
        Return .F.
    Endif
**************************************************************************************
*                              Начальные установки                                   *
**************************************************************************************
    cexact = Set("EXACT")
    Set Exact Off
    Dimension ndir[1]
    ndir[1] = ""
**************************************************************************************
*                Подготовка курсора NewDir с вложенными директориями,                *
*             построенных по убыванию длины пути директории                          *
**************************************************************************************
    nkol = searchdir(cdir)
    If nkol > 0
        Select folder, Len(Alltrim(folder)) As lenfolder ;
            FROM dirlist ;
            ORDER By lenfolder Desc ;
            INTO Cursor newdir
        Select newdir
**********************************************************************************
*                Сканирование курсора                                            *
*          Выборка по тем веткам, где есть пустые поддиректории                  *
**********************************************************************************
        i=0
        Scan For Ascan(ndir, Upper(Alltrim(newdir.folder))) = 0
            If Adir(atmp, Alltrim(newdir.folder)+"*.*", "AHRS") = 0
                If searchdir(Alltrim(newdir.folder)) = 1
                    Rmdir Alltrim(newdir.folder)
                Endif
            Else
                i=i+1
                Declare ndir[i]
                ndir[i] = Upper(Alltrim(newdir.folder))
            Endif
        Endscan
        Create Cursor tfile (filepath c(254), filename c(254))
        Select "NewDir"
        Scan
            a = Adir(afile, Alltrim(newdir.folder)+"*.*", "AHRS")
            If a > 0
                Select "tFile"
                For i = 1 To a
                    Insert Into tfile (filepath, filename) Value (Allt(newdir.folder)+afile[i,1], afile[i,1])
                Next
            Endif
        Endscan
        Select "tFile"
        Scan
            nfile=filepath
            Delete File &nfile
        Endscan
        Select "NewDir"
        Scan
            tndir=folder
            If Directory(tndir)
                Rmdir &tndir
            Endif
        Endscan
        Set Alternate Off
        Set Alternate To
        Use In "NewDir"
        Use In "Dirlist"
        Use In "tFile"
    Endif
    Set Exact &cexact
    If kol_error>0
        Return .F.
    Else
        Return .T.
    Endif
Endfunc
***********************************************************************************************
*                          PROCEDURE SEARCHDIR                                                *
*                   Процедура поиска поддиректорий в исходной директории                      *
***********************************************************************************************
Procedure searchdir
    Lparameters cdirname
    Create Cursor dirlist(folder c(254))
    Select dirlist
    cstartdir = Sys(5)+Curdir()
    cpath     = cdirname
    nrecord   = 1
    Set Default To (cpath)
    Append Blank
    Replace folder With (cpath)
    Adir(adirlist,"","D")
    cpathnow = Sys(5)+Curdir()
    Go nrecord
    bkeepgoing =.T.
    Do While bkeepgoing
        nrecord = Recno()
        cpath   = Alltrim(dirlist.folder)
        Set Default To "&cPath"
        Adir(adirlist,"","D")
        cpathnow = Sys(5)+Curdir()
        For ncopy = 1 To Alen(adirlist,1)
            cfoldername = adirlist[nCopy,1]
            If Right(adirlist[nCopy,5],1)="D" And cfoldername # "."
                Append Blank
                Replace folder With "&cPathNow.&cFolderName.\"
            Endif
        Endfor
        Release adirlist
        Go nrecord
        bkeepgoing = Iif(nrecord=Reccount(), .F., .T.)
        Skip
    Enddo
    nkolzap=Reccount()
    Set Default To "&cStartDir"
    If bkeepgoing
        cdrivepathfile = "&cPath.&cFileName"
    Else
        cdrivepathfile = ""
    Endif
    Return nkolzap
Endproc                 &&  searchdir