(11-30-2023, 04:58 AM)eoredson Wrote:

(11-30-2023, 04:53 AM)SMcNeill Wrote:

(11-30-2023, 04:50 AM)eoredson Wrote: I am running QB64 yes.

I think this is a bad thread..

https://qb64phoenix.com/qb64wiki/index.php/RMDIR

So, I should shell to RMDIR?

(11-30-2023, 05:10 AM)SMcNeill Wrote:

Code: (Select All)

Print "Enter dir spec:";
Input Dir$
If _DirExists(Dir$) Then
   RmDir Dir$
End If

If the directory isn't empty, then you'll need to write a routine to change to get the files in that directory, KILL them, and then RMDIR that directory.  If there's directories inside that directory and not just files, then you'll want that routine to work recursively.

(11-30-2023, 05:13 AM)eoredson Wrote:

(11-30-2023, 05:10 AM)SMcNeill Wrote:

Code: (Select All)

Print "Enter dir spec:";
Input Dir$
If _DirExists(Dir$) Then
   RmDir Dir$
End If

If the directory isn't empty, then you'll need to write a routine to change to get the files in that directory, KILL them, and then RMDIR that directory.  If there's directories inside that directory and not just files, then you'll want that routine to work recursively.

Very well stated! That is what I was starting to do..

Could you write one?? It would have to be internal without any shell.

Given the two functions Kill and RMdir it could be done...

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

(11-30-2023, 05:37 AM)TerryRitchie Wrote: Hold the phone, I'm still stuck on the QB64 in the Dosbox thing. Compiled QB64 programs will not run in Dosbox. Dosbox emulates 16bit architecture.

(11-30-2023, 06:07 AM)eoredson Wrote: Hey. I got an idea for the makers of QB64pe:

Maybe you could add a KillDir(Dir$) function!?

(11-30-2023, 05:40 AM)eoredson Wrote:

(11-30-2023, 05:37 AM)TerryRitchie Wrote: Hold the phone, I'm still stuck on the QB64 in the Dosbox thing. Compiled QB64 programs will not run in Dosbox. Dosbox emulates 16bit architecture.

Ok. I am using QB64 for a directory delete function and it is compatible with QB1, 4, and 7 in Dosbox-x.

Does that make sense?? All I want to do is Kill Dir$