VB Forum / General 2 / July 2008

Look up DIR in the help and it gives you sample code that will transverse a
directory structure, from a given starting point, using recursion

Richard
See http://www.caravanningnow.co.uk where my caravan's for sale.

Dir$() will search through the files of a given directory. However, it's not
re-entrant, meaning that it makes it difficult to search lower-levels of
directory because it can only search one directory at a time.

Here's a slightly different way of tackling the problem:
http://groups.google.ie/group/comp.lang.basic.visual.misc/msg/8600feded860aa54?hl=en

   Tony Proctor

some sample Code

Function ListFilesAndDirs(ByVal sStartDir As String, frmMe As Form)
   Dim lpFindFileData As WIN32_FIND_DATA, lFileHdl  As Long
   Dim sTemp As String, sTemp2 As String, lRet As Long, iLastIndex
As Integer
   Dim strPath As String, strFolder As String

   On Error Resume Next

   '// add trailing \ to start directory if required
   If Right$(sStartDir, 1) <> "\" Then sStartDir = sStartDir & "\"

   strFolder = Mid(frmMe.Drive1, 1, 2) & "\"
   With frmMe
       .lstFiles.Clear
       .lstFolders.Clear
   End With
   sStartDir = sStartDir & "*.*"

   '// get a file handle
   lFileHdl = FindFirstFile(sStartDir, lpFindFileData)

   If lFileHdl <> -1 Then
       Do Until lRet = ERROR_NO_MORE_FILES
           strPath = Left$(sStartDir, Len(sStartDir) - 4) & "\"
           '// if it is a directory
           If (lpFindFileData.dwFileAttributes And
FILE_ATTRIBUTE_DIRECTORY) = vbDirectory Then
               'Strip off null chars and format the string
               sTemp =
StrConv(StripTerminator(lpFindFileData.cFileName), vbProperCase)
               ' make sure it is not a reference
               If sTemp <> "." And sTemp <> ".." Then
                   'add it to the tree view. Store its path as its
Key
                   frmMe.lstFolders.AddItem sTemp
               End If
           '// if it is a file
           ElseIf (lpFindFileData.dwFileAttributes And
FILE_ATTRIBUTE_NORMAL) = vbNormal Then
               sTemp =
StrConv(StripTerminator(lpFindFileData.cFileName), vbProperCase)
               If UCase(Right(sTemp, 4)) = ".TIF" Then
                  frmMe.lstFiles.AddItem sTemp
               End If
           End If
           '// based on the file handle iterate through all files and
dirs
           lRet = FindNextFile(lFileHdl, lpFindFileData)
           If lRet = 0 Then Exit Do
       Loop
   End If
   '// close the file handle
   lRet = FindClose(lFileHdl)
End Function