Populating a LISTVIEW with directory contents...

[bgalm]

Hello,
The following routine populates a LISTVIEW control with a list of files that are contained in a text file. I would like to modify this so that the .EXE and .BAT files that are in a specific directory are loaded, for example, app.path
Is there any way to do this without doing a DIR *.EXE > FILES.LST, then loading the file, the deleting the file ?

Open App.Path & "\FILES.LST" For Input As #1
Do While Not EOF(1)
Line Input #1, STemp
Set liEntry = ListView1.ListItems.Add(, , STemp, 0, 0)
Loop
Close #1

Thanks,

[marnitzg]

I added a command button and a listbox to the form. I'm sure you can modify this to your needs.


Private Sub Command1_Click()
Dim FileDir As String

FileDir = Dir("C:\Windows\")
While FileDir <> ""
DoEvents
If UCase(Right(FileDir, 3)) = "BAT" Or _
UCase(Right(FileDir, 3)) = "EXE" _
Then
List1.AddItem FileDir
End If
FileDir = Dir
Wend
End Sub

[bgalm]

Thanks again,