BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"Create Directory View In Blitz+", by lattyware

Here is some code I was working on to create a Directory View - please use as much as you want, and adapt it likewise, but I do request some sort of small credit (You don't have to, but it would be nice) and If you use the code, do tell me, as I am interested in how it could be used. It could be set to read a cirtain are only and get a level selector, there are many possiblities.

Lattyware (info@lattyware.co.uk)

Code

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;                                                                                        ;;;     
;;; Directory View - Made By Lattyware                                                ;;;
;;; www.lattyware.com                                                                   ;;;
;;; Note this is not a gadget, just a function (or two).                      ;;;     
;;;                                                                                        ;;;     
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;                                                                                        ;;;
;;; CreateDirectoryView(group,drive,x,y,width,height,viewfiles)             ;;;
;;;                                                                                        ;;;
;;; Paramaters:                                                                             ;;;
;;; group - A group gadget handle.                                                    ;;;
;;; drive - The drive letter to browse.                                               ;;;
;;; x,y,width,height - shape of the gadget.                                          ;;;
;;; viewfiles - True to view files and folders, False for just folders.   ;;;
;;;                                                                                            ;;;
;;; Description:                                                                        ;;;
;;; Creates a directory browser.                                                    ;;;
;;;                                                                                            ;;;
;;; Example:                                                              ;;;
;;;                                                                                            ;;;
;;; window=CreateWindow("Directory Browser",0,0,800,600,0,1)                 ;;;
;;; CreateDirectoryView(window,"C:\",50,50,650,450,True)                  ;;;
;;; While Not id=$803                                                                   ;;;
;;; id=WaitEvent()                                                                        ;;;
;;; Wend                                                                                 ;;;
;;; End                                                                                       ;;;
;;;                                                                                        ;;;                                                                             ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Below are the two functions to add if you wish to use.

Function CreateDirectoryView(window,drive$,startx,starty,width,height,viewfiles)
main=CreateTreeView(startx,starty,width,height,window)
root1=TreeViewRoot(main)
root=AddTreeViewNode(drive$,root1)

dir=ReadDir(drive$)

While MoreFiles(dir)

If file$ <> "." Then
If file$ <> ".." Then

file$=NextFile(dir)

If FileType(drive$+"\"+file$) = 2 Then

folder=AddTreeViewNode(file$,root)

AddFolderContents(drive$,file$,folder,viewfiles)

Else

If viewfiles=True Then folder=AddTreeViewNode(file$,root)

EndIf

Wend

End Function

;End of the first function, now for the second.

Function  AddFolderContents(drive$,file$,folder,viewfiles)

dir=ReadDir(drive$+"\"+file$)

While MoreFiles(dir)

file2$=NextFile(dir)

If file2$ <> "." Then
If file2$ <> ".." Then

If FileType(drive$+"\"+file$+"\"+file2$) = 2 Then

folder2=AddTreeViewNode(file2$,folder)

drive2$=drive$+"\"+file$

AddFolderContents(drive2$,file2$,folder2,viewfiles)

Else

If viewfiles=True Then folder2=AddTreeViewNode(file2$,folder)

EndIf

Wend

End Function

;END

Code software created by Krylar's Kreations