A Flustering Question

[davethebrat]

I have been researching this on the internet for about 3 months and I have had no luck. So I decided to post this message to see if any of you know how to do this >>>>

I want to give a directory name to my application and have it scan that directory for MP3, WMA and M3U files. I have downloaded many sample applications but unfortunitly its a b*** sometimes to retrofit codes into your own application...Can any of you tell me how to read files into a list box using a given file extention & directory??? Thank you! ([email protected])

[filburt1]

There's an article on VB world about this. And I feel your pain, file searching code is rough.

[JoshT]

It's not that hard, just modify this:

Private Sub Command1_Click()
    Dim strFileName As String 'the file name
    Dim strFolder As String 'the dir to search
    Dim strExt As String 'the file extension
    
    'test
    strFolder = "C:\Winnt"
 
    'add the trailing slash if it's not their
    If Right(strFolder, 1) <> "\" Then strFolder = strFolder & "\"
        strFileName = Dir(strFolder)
        While strFileName <> ""
            strExt = LCase(Right(strFileName, 4))
            If (strExt = ".jpg") Or (strExt = ".bmp") Then
                List1.AddItem strFolder & strFileName
            End If
            strFileName = Dir
        Wend
End Sub