[bb] BlitzPlus File Explorer by assari [ 1+ years ago ]

[BlitzBot]

Title : BlitzPlus File Explorer
Author : assari
Posted : 1+ years ago

Description : Uses recursive function to add folders and selected files into a treeview gadget.

Code :

Code (blitzbasic) Select Expand

; B+ program to populate a treeview gadget with folders and files
; Author: Assari
; Created: 16th March 2003
;

Global window=CreateWindow("B+ program to populate a treeview gadget with folders and files",0,0,800,600)
treeview=CreateTreeView( 0,0,ClientWidth(window),ClientHeight(window),window )
SetGadgetLayout treeview,1,2,2,2
root=TreeViewRoot( treeview )

folderlist$=RequestDir("Pls Select Folder")

If folderlist$>"" And Right$(folderlist$,1)="" Then ;remove any
   folderlist$=Left$(folderlist$,Len(folderlist$)-1)
EndIf

node=AddTreeViewNode(FolderList$,root)

TrawlFolder(FolderList$,"root",".JPG JPEG .BMP .PNG .ZIP",node)

Repeat
 WaitEvent()
 If EventID()=$803 Then End
Forever

End


Function TrawlFolder(CurrentPath$, CurrentParent$, Pattern$, ParentNode)

    If CurrentParent$="root" Then
       CurrentParent$=CurrentPath$
       xPath$=CurrentPath$
    Else
      xPath$=CurrentPath$+""+CurrentParent$
    EndIf

  hDir = ReadDir(xPath$):If hDir=0 Then Return ;no more folders
 
  Repeat

    File$=NextFile(hDir):If File$="" Then Return ;no more files

    Select FileType(xPath$+""+file$)
      Case 2 ;folder
        If Not (file$="." Or Right$(file$,2)="..") Then
          node=AddTreeViewNode(">"+file$,ParentNode)
          TrawlFolder(xPath$,File$,Pattern$, Node)   ;recursion required here
        EndIf
     Case 1 ;file
        ext$=Upper$(Right$(file$,4)) ;check for extension (last four characters)
        If Instr(pattern$,ext$) Then
           node=AddTreeViewNode(file$,ParentNode)
        EndIf
    End Select

    ;the next two lines are not required
    SetStatusText window, CurrentParent$+""+file$ ;just to let the world know we're working
    WaitEvent(1):If EventID()=$103 And EventData()=27 Then Return;Escape route

  Forever

End Function

Comments :


modmcdl(Posted 1+ years ago)

 How can you set it so that it starts out at a certain folder?For example: C:DOCTRINECorePluginsPersonalProfile


modmcdl(Posted 1+ years ago)

 that is for a program im creating, i just want to know where to put the directory


Pakz(Posted 1+ years ago)

 I think if I read it right that you need to use the variable folderlist$ to set that.