VB6 - Listar arquivos

listar arquivos de uma pasta qualquer (Neste exemplo será utilizada a pasta "App.Path" e os arquivos com a extensão .mp3)

Dim sPath as string
Dim sFile as string


List1.Clear

sPath = App.Path

sFile = Dir(sPath & "*.mp3", vbDirectory)


        Do While sFile <> ""
            If InStr(sFile, ".mp3") > 0 Then
                Call List1.AddItem(sFile)
            End If
        sFile = Dir
        Loop