RabbitMQ

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



Comments

Anonymous said…
Wonderful job,you are amazing.This VB6 listar arquivos is very important for me,which I was looking for so long,thank you very much.




Tags: vb.net barcode listar arquivos C#