CONST Testing = 0



RMDIR_Recursive "Z:\"



SUB RMDIR_Recursive (Dir$)

    IF RIGHT$(Dir$, 1) = "\" OR RIGHT$(Dir$, 1) = "/" THEN Dir$ = LEFT$(Dir$, LEN(Dir$) - 1)

    IF _DIREXISTS(Dir$) = 0 THEN EXIT SUB

    REDIM FileList(0) AS STRING

    GetFileList Dir$, FileList()

    FOR i = 1 TO UBOUND(FileList)

        IF FileList(i) <> "." AND FileList(i) <> ".." THEN

            $IF WIN THEN

                file$ = Dir$ + "\" + FileList(i)

            $ELSE

                    file$ = Dir$ + "/" + FileList(i)

            $END IF 

            IF _FILEEXISTS(file$) THEN

                IF Testing THEN PRINT "DEL "; file$ ELSE KILL file$

            ELSEIF _DIREXISTS(file$) THEN

                RMDIR_Recursive file$

            END IF

        END IF

    NEXT

    IF LEN(Dir$) > 3 THEN

        IF Testing THEN PRINT "RD "; Dir$ ELSE RMDIR Dir$

    END IF

END SUB





SUB GetFileList (SearchDirectory AS STRING, FileList() AS STRING)

    DECLARE CUSTOMTYPE LIBRARY ".\direntry"

        FUNCTION load_dir& (s AS STRING)

        FUNCTION has_next_entry& ()

        SUB close_dir ()

        SUB get_next_entry (s AS STRING, flags AS LONG, file_size AS LONG)

    END DECLARE



    DIM flags AS LONG, file_size AS LONG



    REDIM _PRESERVE FileList(1000)

    FileCount = 0



    IF load_dir(SearchDirectory) THEN

        DO

            length = has_next_entry

            IF length > -1 THEN

                nam$ = SPACE$(length)

                get_next_entry nam$, flags, file_size

                FileCount = FileCount + 1

                IF FileCount > UBOUND(FileList) THEN REDIM _PRESERVE FileList(UBOUND(FileList) + 100)

                FileList(FileCount) = nam$

            END IF

        LOOP UNTIL length = -1

        close_dir

    ELSE

    END IF

    REDIM _PRESERVE FileList(FileCount)

END SUB