need to collect files in a folder and all its subfolders

[enriquein]

Im tryng to load filenames to a list. The problem is that I cant seem to find a way to browse subfolders within a folder. I mean, if i wanted to add all files in the windows directory, the program would also add all files contained in all of the windows folder's subdirectories, and on all their respective subdirectories.

[InvisibleDuncan]

What do you mean by a list? Are you just trying to create an array or do you want to display the list of directories so that you can select from them? If the latter, you can use a DirListBox which will do all the hard work for you...

[ExcalibursZone]

This has been answered by me several times in this forum, you can do a search to find it, I'd say: SUBFOLDER, but I'll do the work for ye ...
Thread:
http://www.vbforums.com/showthread.p...threadid=91531 (to get all subfolders using FSO)

Dim FSO As FileSystemObject
Dim fFolder As Folder
Dim fRoot As Folder

Private Sub Form_Load()
    Set FSO = New FileSystemObject
    ShowFolders ("C:\")
End Sub

Private Sub ShowFolders(Path As String)
    Set fRoot = FSO.GetFolder(Path)
    For Each fFolder In fRoot.SubFolders
        MsgBox fFolder.Name
        ShowFolders(fFolder.Path)
    Next
End Sub

All you have to do is throw in file capabilities.

Dim FSO As FileSystemObject
Dim fFolder As Folder
Dim fRoot As Folder
Dim fFile As File

Private Sub Form_Load()
    Set FSO = New FileSystemObject
    ShowFolders ("C:\")
End Sub

Private Sub ShowFolders(Path As String)
    Set fRoot = FSO.GetFolder(Path)
    For Each fFolder In fRoot.SubFolders
        MsgBox fFolder.Name
        GetFiles(Path)
        ShowFolders(fFolder.Path)
    Next
End Sub

Private Sub GetFiles(Path As String)
    Dim fSub As Folder
    Set fSub = FSO.GetFolder(Path)
    For Each fFile In fSub.Files
        MsgBox fFile.Name
    Next
End Sub

Now all you have to do is change the MsgBox commands to List1.AddItem commands.
You will need the microsoft scripting runtime added to your references or use the createobject function.

[enriquein]

yeah im trying to load the names on a list so the user selects which files to process. I knew about the filesystemobject, but i coudn't figure out how to make it work with all subfolders. I'll give it a try sometime tonite . . . THANX A WHOLE LOT MAN!!!!

=)

[rossim]

Here is code using the API.

I've tested this code against using FSO and using the Dir function. This code is much faster than the other two methods.

Copy it into a class module. There is a function to return all
results in an array and one to populate a listbox. Let me know what you think.

Option Explicit
 
'Originally taken from Rick Meyer at [url]http://pages.about.com/vbmakai/getfiles.htm[/url]
'Code Greatly Modified by Mike Rossi
 
'==========================================
' These are the API declarations needed for
'   the file searching operations
'==========================================
Const FILE_ATTRIBUTE_NORMAL = &H80
Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_SYSTEM = &H4
Const FILE_ATTRIBUTE_DIRECTORY = &H10
 
Private Type FILETIME
  dwLowDateTime     As Long
  dwHighDateTime    As Long
End Type
 
Private Type WIN32_FIND_DATA
  dwFileAttributes  As Long
  ftCreationTime    As FILETIME
  ftLastAccessTime  As FILETIME
  ftLastWriteTime   As FILETIME
  nFileSizeHigh     As Long
  nFileSizeLow      As Long
  dwReserved0       As Long
  dwReserved1       As Long
  cFileName         As String * 260
  cAlternate        As String * 14
End Type
 
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" ( _
    ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
   
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" ( _
    ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
 
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
 
'==========================================
' These are the API declarations needed for
'   adding the listbox horizontal scrollbar
'==========================================
Const LB_SETHORIZONTALEXTENT = &H194
 
Private Declare Function SendMessageByNum Lib "user32" Alias "SendMessageA" ( _
    ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
Dim maxWdth As Long
 
Public Sub arrayGetAllFiles(ByVal strDir As String, ByVal Extension As String, ByRef Results() As String, Optional NumFound As Long)
    
Dim fPath$, fName$, fPathName$
Dim hfind&, nameLen%, matchLen%
Dim WFD As WIN32_FIND_DATA
Dim found As Boolean
  
  fPath = strDir
  If Right(fPath, 1) <> "\" Then
    fPath = fPath & "\"
  End If
    
  matchLen = Len(Extension)
  Extension = LCase$(Extension)
  
  'The first API call is FindFirstFile
  hfind = FindFirstFile(fPath & "*", WFD)
  found = (hfind > 0)
  
  Do While found
  
    fName = TrimNull(WFD.cFileName)
    nameLen = Len(fName)
    fPathName = fPath & fName
    
    If fName = "." Or fName = ".." Then
 
    ElseIf WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY Then arrayGetAllFiles fPathName, Extension, Results(), NumFound
        
    ElseIf matchLen > nameLen Then
    
    ElseIf LCase$(Right$(fName, matchLen)) = Extension Then
      ReDim Preserve Results(NumFound)
      Results(NumFound) = fPathName
      NumFound = NumFound + 1
    End If
    
    'Subsequent API calls to FindNextFile
    found = FindNextFile(hfind, WFD)
    
  Loop
  
  'Then close the findfile operation
  FindClose hfind
  
End Sub
 
Public Sub lstBoxGetCurrentDir(ByVal strDir As String, ByVal Extension As String, FormName As Form, ListBoxName As ListBox, Optional NumFound As Long, Optional ResetMaxWidth As Boolean = True)
 
Dim fName As String
Dim fFile As String
 
  If ResetMaxWidth = True Then maxWdth = 0
 
  fName = Dir(strDir & "*." & Extension)
  Do Until fName = ""
    fFile = strDir & fName
    ListBoxName.AddItem fFile
    If FormName.TextWidth(fFile) > maxWdth Then
      maxWdth = FormName.TextWidth(fFile)
    End If
    NumFound = NumFound + 1
    fName = Dir
  Loop
 
End Sub
Public Sub lstBoxGetAllFiles(ByVal strDir As String, ByVal Extension As String, FormName As Form, ListBoxName As ListBox, Optional NumFound As Long, Optional ResetMaxWidth As Boolean = True)
    
Dim fPath$, fName$, fPathName$
Dim hfind&, nameLen%, matchLen%
Dim WFD As WIN32_FIND_DATA
Dim found As Boolean
 
  If ResetMaxWidth = True Then maxWdth = 0
  
  fPath = strDir
  If Right(fPath, 1) <> "\" Then
    fPath = fPath & "\"
  End If
    
  matchLen = Len(Extension)
  Extension = LCase$(Extension)
  
  'The first API call is FindFirstFile
  hfind = FindFirstFile(fPath & "*", WFD)
  found = (hfind > 0)
  
  Do While found
  
    fName = TrimNull(WFD.cFileName)
    nameLen = Len(fName)
    fPathName = fPath & fName
    
    If fName = "." Or fName = ".." Then
 
    ElseIf WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY Then lstBoxGetAllFiles fPathName, Extension, FormName, ListBoxName, NumFound, False
        
    ElseIf matchLen > nameLen Then
    
    ElseIf LCase$(Right$(fName, matchLen)) = Extension Then
      ListBoxName.AddItem fPathName
      NumFound = NumFound + 1
      If FormName.TextWidth(fPathName) > maxWdth Then
        maxWdth = FormName.TextWidth(fPathName)
      End If
    End If
    
    'Subsequent API calls to FindNextFile
    found = FindNextFile(hfind, WFD)
    
  Loop
  
  'Then close the findfile operation
  FindClose hfind
  
End Sub
 
Private Function TrimNull(ByVal Item As String) As String
    
Dim pos As Integer
    
  pos = InStr(Item, Chr$(0))
  If pos Then Item = Left$(Item, pos - 1)
    
  TrimNull = Item
  
End Function
 
Private Sub Class_Initialize()
 
  maxWdth = 0
 
End Sub
 
Public Sub SetHorizontalBar(FormName As Form, ListBoxName As ListBox)
 
  maxWdth = maxWdth + FormName.TextWidth("  ")
  maxWdth = maxWdth / Screen.TwipsPerPixelX
  'The API call to add the horizontal scrollbar
  SendMessageByNum ListBoxName.hwnd, LB_SETHORIZONTALEXTENT, maxWdth, 0
  
End Sub

[enriquein]

well im really not very familiar with the API, so to me all that code looks rather complex. I'll give it a try though, and i'll try to figure it out. thanx