Option _Explicit



'2023.12.29, J.S.Race.  Public Domain.

'Have fun with it, because I'm done with it.







Dim ccomp$, yupok$

ccomp$ = ".\internal\c\c_compiler\"





Cls





'Verify that we're on Windoze....

'Old joke: "A computer is like air conditioning - it becomes useless when you open Windows" --Linus Torvalds

If Left$(_OS$, 9) <> "[WINDOWS]" Then

    Print: Print "Sorry, this program is only for Windows"

    End

End If





'Verify that we're in the QB64PE directory....

If Not (_FileExists(".\qb64pe.exe")) Then

    Print: Print "Sorry, this program must be run from the directory which contains 'qb64pe.exe'"

    End

End If





Print "***********************************************************************"

Print "* This program will delete three MinGW GCC directories which are      *"

Print "* not required for QB64PE operation.                                  *"

Print "*                                                                     *"

Print "* These directories contain about 15000 files and consume about 150   *"

Print "* megabytes of disk space.                                            *"

Print "*                                                                     *"

Print "* These directories and the files they contain are required for legal *"

Print "* distribution of GCC and QB64PE, but you may safely and legally      *"

Print "* delete them from your own personal installation.                    *"

Print "***********************************************************************"

Print

Input "Enter 'Y' (uppercase only) to proceed: ", yupok$





If yupok$ = "Y" Then

    REMOVE_DIR (ccomp$ + "licenses")

    REMOVE_DIR (ccomp$ + "opt")

    REMOVE_DIR (ccomp$ + "share")

Else

    Print "Operation aborted by user."

End If



Print

Print

End







Sub REMOVE_DIR (D$)

    Dim O$

    'QB64's "RMDIR" will not delete non-empty directories which means

    'we would need to walk the tree of subdirectories deleting all files

    'and subdirs contained within those directories before deleting the

    'directories themselves... if we use QB64 commands only.

    'Instead of doing that, we will let Windows handle all the gory details....

    If _DirExists(D$) Then

        O$ = "RD /Q /S " + Chr$(34) + D$ + Chr$(34) '("RD /Q /S" is silent, but deadly.  Handle with care.)

        Print O$

        Shell _Hide O$

    Else

        Print "Directory not found "; Chr$(34); D$; Chr$(34)

    End If

End Sub

Quote:

(12-29-2023, 03:55 PM)euklides Wrote: Well: a little change to do:

REMOVE_DIR (ccomp$ + "license")
to
REMOVE_DIR (ccomp$ + "licenses")

Thanks for this information !
Simply is also to use the good old windows explorer to kill theese unused directories:
...\internal\c\c_compiler\licenses
...\internal\c\c_compiler\opt
... \internal\c\c_compiler\share  

Quote: