Disable ".bmx" folder creation?

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Jim Brown

Grisu,

Here's a utility I created to clean up the folders.

Deletes the *.bmx folders, *.exe, and *.bak files in the specifed folder.

If you place the code in the BlitzMax root folder and run it from there it goes through the samples folder with its sweeping brush.

Use at your own risk of course.

' Title:   BMaxCleanup
' Author:  Jim Brown
' Version: 1.0

Rem

    Removes any of the following from the
    specified folder (recursive):
      *.exe
      *.bak
       .bmx (folder and all files within)

    Place BMaxCleanup in the BlitzMax root folder

End Rem

Strict

Framework brl.basic
Import brl.retro


' ******************************
Local whichdir$="samples"
' ******************************


Local thispath$=CurrentDir$()+"/"+whichdir$
CleanFolder thispath$
End

Function CleanFolder(path$)
	Local ext$,f$,dir
	'Print "="+path$
	ChangeDir path$
	dir=ReadDir(CurrentDir())
	Repeat
		f$=NextFile$(dir)
		Select FileType(f$)
			Case 1 ' file
			ext$=ExtractExt$(f$)
			If ext$="exe" Or ext$="bak"
				Print "Deleting file "+path$+"/"+f$
				DeleteFile path$+"/"+f$
			EndIf
			Case 2 ' dir
			If f$=".bmx"
				Print "Deleting folder "+path$+"/"+f$
				DeleteDir path$+"/"+f$,True
			Else
				If f$<>"." And f$<>".."
					CleanFolder path$+"/"+f$
					ChangeDir ".."
				EndIf
			EndIf
		End Select
	Until f$=""
	CloseDir dir
	FlushMem
End Function