HOW TO SEARCH FOR FILES FROM VBA 2

[Jdoggers]

Hi,
I would like to search through a specific folder on the hard drive (which i already know the path) and use code to search through every file in that directory and populate a dropdown combo box with the names of every file in the folder. Is there any way to do this with vba?

thanks for the help

 

[luceze]

Hello,

If you have XP or later this will work otherwise use the second one.

Sub ListFiles()
    Dim Path As String
    Dim fName As String
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
        With fd
            .AllowMultiSelect = False
            If .Show = 0 Then
                Exit Sub
            End If
            Path = .SelectedItems(1)
        End With
        fName = Dir(Path & "\", vbNormal)
        Me.ComboBox1.Clear
        Do While CBool(Len(fName))
            Sheets("YourSheetName").YourComboBoxName.AddItem fName
            fName = Dir
        Loop
End Sub

Sub ListFiles()
    Dim Path As String
    Dim fName As String
        fName = Dir("C:\YourPath\", vbNormal)
        Me.ComboBox1.Clear
        Do While CBool(Len(fName))
            Sheets("YourSheetName").YourComboBoxName.AddItem fName
            fName = Dir
        Loop
End Sub

HTH,
Eric