put all files in directory in listbox on userform

[birdman]

i have a macro which opens a userform. when the userform appears i would like all the files in a certain directory to appear in a listbox that is on the userform. does anyone know the code, and where to put the code to do this?? thanks for any help in advance.

 

[Norie]

Steve

This is certainly possible, and I'll try and find some appropriate code, but have you considered using the GetOpenFileName method?

Here's some code.

Private Sub UserForm_Initialize()
Dim I As Long

    With Application.FileSearch
        .NewSearch
        .LookIn = "C:\"
        .FileType = msoFileTypeExcelWorkbooks
        .Execute
        For I = 1 To .FoundFiles.Count
            ListBox1.AddItem .FoundFiles(I)
        Next I
    End With
End Sub

 

[birdman]

i am currently using the GetOpenFileName method. i wish to change to this so that when the userform opens, all the files in the folder are shown in the listbox without having to deal with selecting the files.

 

[birdman]

i notice it says

.FileType = msoFileTypeExcelWorkbooks

every file in the folder is going to be a text file. i am not sure to put in replace of this line.

thanks for all your help by the way

 

[Norie]

Maybe this?

Private Sub UserForm_Initialize()
Dim I As Long

    With Application.FileSearch
        .NewSearch
        .LookIn = "C:\"
        .FileType = msoFileTypeAllFiles
        .Filename = "*.txt" ' assumes the text files have the txt extension
        .Execute
        For I = 1 To .FoundFiles.Count
            ListBox1.AddItem .FoundFiles(I)
        Next I
    End With
End Sub

By the way why do you not want to use the GetOpenFileName method?

 

[birdman]

that did the trick. thanks alot.