databomb

The code archive is locked. These are the original blitzbasic.com code archives, kept so they can still be read. No new entries, edits or comments can be made here. To join in, head over to the Blitz3D+ code archives.

This code has been declared by its author to be Public Domain code.

Download source code

databomb by cipherdude9
use to erase folders
.start ; Define what folder to start with ... folder$ = Input$("file to delete:") ; Open up the directory, and assign the handle to myDir myDir=ReadDir(folder$) ; Let's loop forever until we run out of files/folders to delete! Repeat ; Assign the next entry in the folder to file$ file$=NextFile$(myDir) ; If there isn't another one, let's exit this loop If file$="" Then Exit ; Use FileType to determine if it is a folder (value 1) or a file and print results If FileType(folder$+"\"+file$) = 1 Then Print "File: " + file$ + " deleted" DeleteFile folder$+"\"+file$ If FileType(folder$+"\"+file$) = 0 Then Print "deletion of file: " + file$ + " confirmed" End If Forever ; Properly delete the open folder DeleteDir folder$ ;done! Print "Done deleteing files" Goto start

databomb by cipherdude9

use to erase folders

.start
; Define what folder to start with ... 
folder$ = Input$("file to delete:")

; Open up the directory, and assign the handle to myDir 
myDir=ReadDir(folder$) 

; Let's loop forever until we run out of files/folders to delete! 
Repeat 
; Assign the next entry in the folder to file$ 
file$=NextFile$(myDir) 

; If there isn't another one, let's exit this loop 
If file$="" Then Exit 

; Use FileType to determine if it is a folder (value 1) or a file and print results 
If FileType(folder$+"\"+file$) = 1 Then 
Print "File: " + file$ + " deleted"
DeleteFile folder$+"\"+file$
If FileType(folder$+"\"+file$) = 0 Then Print "deletion of file: " + file$ + " confirmed"
End If 

Forever 

; Properly delete the open folder 
DeleteDir folder$ 

;done! 
Print "Done deleteing files"
Goto start

Comments

None.

Code Archives Forum