Como criar um componente pra exolorar diretório

[implesmente...Márcio 0]

Boa Noite,Pessoal! Sou novato, chegando agora. É o seguinte! To criando um Programa de rádio no estilo do "Zara Rádio",o "Menino" já toca beleza! Faz busca de diretórios & arquivos através de um "CommonDialog" e também um "ListBox" que recebe os arquivo arrastados de um Explorer ao lado deste "ListBox", a bronk começa aí! Rrsrs! Não consigo criar justamente esse danado desse explorador de diretórios & arquivos(uma espécie de "explorer" dentro de um componente) para arrastá-los para o "ListBox" ja tentei muitos componentes, talvez tenha eu, passado "batido" pelos código que precisam. Algum fera, podria me dá esta dica. Desde já fico mui grato

[Claudio Neto 3]

Cara, não entendi sua necessidade.

 

Você quer listar em um list todos os arquivos contidos em uma certa pasta e ter a possibilidade de clicar nesse arquivo, arrastar e soltar em outro lugar e executar uma tarefa?

 

É isso?

 

Para listar, tente isso:

' usando o FileSystemObject para acessar a pasta desejada
        Dim fso As Scripting.FileSystemObject
        fso = New Scripting.FileSystemObject

        Dim f As Scripting.Folder
        f = fso.GetFolder("C:\pasta_desejada") 

        ' percorre todos os arquivos e os inclui no array
        Dim fi As Scripting.File
        For Each fi In f.Files
            list1.Add fi.Name
        Next

Para arrastar e soltar você precisa trabalhar com uma API específica do windows. Dê uma procurada aqui no fórum que irá achar alguma coisa. Ah, para usar o código acima precisa referenciar a biblioteca filesystemobject.

 

Att,

 

Cláudio.

[implesmente...Márcio 0]

Cara, não entendi sua necessidade.

 

Você quer listar em um list todos os arquivos contidos em uma certa pasta e ter a possibilidade de clicar nesse arquivo, arrastar e soltar em outro lugar e executar uma tarefa?

 

É isso?

 

Para listar, tente isso:

' usando o FileSystemObject para acessar a pasta desejada
        Dim fso As Scripting.FileSystemObject
        fso = New Scripting.FileSystemObject

        Dim f As Scripting.Folder
        f = fso.GetFolder("C:\pasta_desejada") 

        ' percorre todos os arquivos e os inclui no array
        Dim fi As Scripting.File
        For Each fi In f.Files
            list1.Add fi.Name
        Next

Para arrastar e soltar você precisa trabalhar com uma API específica do windows. Dê uma procurada aqui no fórum que irá achar alguma coisa. Ah, para usar o código acima precisa referenciar a biblioteca filesystemobject.

 

Att,

 

Cláudio.

 

Exato! Desculpe d não ter detalhado, meu Nobre! Mas é isso mesmo! vou verifiar suas dicas com muito apreço! Isso é como se fosse uma pequena janela para eplorar os arquivos e arrastar para o playlist(listbox. Grato por ter respondido! Abraço.