Treeview Files/Folder Lists Recursively

You will need a command button called Command1 to start the scan and a treeview control called Treeview1.
This example scans the path of a directory listbox (Dir1)

It will also support pattern matching. ie: only scanning certain types of files, like *.jpg or *.exe.

Recursion is when a routine calls itself..  If a subfolder is found, then RecurseFiles2 calls itself to scan the sub folder/s encountered.



' In general Declarations
   Dim tvn As Node

Private Sub Command1_Click()
   Me.MousePointer = vbHourglass

   TreeView1.Nodes.Clear
   
   ' Pathname to create folder/file list from
   p$ = Dir1.Path
   If Right$(p$, 1) <> "\" Then p$ = p$ + "\"
   
   Set tvn = TreeView1.Nodes.Add(, tvwParent, p$, p$)
   
   RecurseFiles2 p$
   
   Me.MousePointer = vbDefault
End Sub

Sub RecurseFiles2(ByVal fPath As String)
   Dim File_Name As String
   Dim File_Read As Integer         ' Number of Files Read
   Dim strTempPath As String
   Dim i As Integer

   If Right$(fPath, 1) <> "\" Then fPath = fPath & "\"
   
   ' to do a pattern match do, or something.
   ' folders won`t be included in the list (not my fault)
   ' File_Name = Dir$(fPath+"\*.exe", vbDirectory)
   
   File_Name = Dir$(fPath, vbDirectory)
   File_Read = 1

   Do While File_Name <> ""
       If File_Name <> "." And File_Name <> ".." Then
           strTempPath = fPath & File_Name
           
           If GetAttr(strTempPath) And vbDirectory Then
               Set tvn = TreeView1.Nodes.Add(fPath, tvwChild, strTempPath + "\", File_Name)
               RecurseFiles2 strTempPath    ' if a folder, then call this routine to scan that folder (recursion)
           
               File_Name = Dir$(fPath, vbDirectory)
               For i = 2 To File_Read
                   File_Name = Dir$
               Next
           Else
               Set tvn = TreeView1.Nodes.Add(fPath, tvwChild, strTempPath, File_Name)
           End If
       End If
       
       File_Name = Dir$
       File_Read = File_Read + 1
   Loop
End Sub

/html>