PEGAR NOME DE ARQUIVOS

USUARIO.EXCLUIDOS 14/09/2005 20:12:03
#104220
Olá, gostaria de saber como pegar o nome de todos os arquivos .mp3 que estiver dentro de uma pasta(sendo que dentro desta pasta, tem outras pastas que podem variar o nome)exemplo:
C:\musicas\ACDC\Jailbreak.mp3
C:\musicas\ACDC\Thunderstruck.mp3
C:\musicas\Rammstein\Mutter.mp3
C:\musicas\In flames\Cloud Connected.mp3
como eu faria para que o código pegasse todas essas mp3 e adicionasse em um banco de dados, sendo que o usuario iria apenas apontar para C:\musicas. ?
Por favor, me ajudem!!!!!
USUARIO.EXCLUIDOS 14/09/2005 23:14:30
#104252
Por favor, alguem ai ajuda,plz!!!!!!!
Só quero que tipo eu aponte uma pasta, como por exemplo:
C:\musicas
e o programa capture todos os arquivos mp3 que tiver dentro dela
LANCECOM 14/09/2005 23:21:22
#104255 Resposta escolhida
Pelo que notei sua ideia a principio sera de montar uma rotina de busca de diretorios e subdiretorios, que busquem *.mp3 correto? Esta rotina vc encontra exemplos, (nao sei se aqui no vbmania, nao procurei), e dentro desta rotina/loop vc devera criar uma conexão com banco de dados, e...

if instr(string_de_nomeArquivo, "mp3") > 0 then
rs.addnew
rs!campo = string
rs.update
end if

Nao é tão dificil, para mais detalhes procure por fyleSystemObject, ótimo para se trabalhar com arquivos, nomes de arquivos, atributos etc..
Espero poder pelo menos ter te dado uma lamparina
GANDA.NICK 15/09/2005 05:22:30
#104277
este codigo manda os mp3 para uma listbox, k estão apenas na pasta escolhida, sem ser nas sub pastas

necessitas de:
- 1 commandbutton
- 1 filelistbox
- 1 listbox
- 1 dirlistbox

Private Sub Command1_Click()
For i = 0 To File1.ListCount - 1 ' ciclo até ao numero de itens na filelistbox, -1 pk começa em 0
File1.ListIndex = i ' seleciona de acordo com o contador
List1.AddItem File1 ' adiciona a listbox
Next i
End Sub

Private Sub Dir1_Change()
File1.FileName = Dir1 ' actualiza a filelistbox
End Sub

Private Sub Form_Load()
File1.Pattern = "*.mp3" ' permite apenas ficheiros mp3
Command1.Caption = "enviar para a listbox"
End Sub
USUARIO.EXCLUIDOS 15/09/2005 10:01:52
#104324
BETOCIENTISTA

é muito simples e não prescisa de muito codigo.

Option Explicit

Private Sub Form_Load()
     
    Dim Path, Nome
    
    Path = "c:\*.txt"   ' Define o caminho com a extensão do arquivo.
    
    Nome = Dir(Path, vbDirectory)
    Do While Nome <> ""   ' Inicia o loop.
       Debug.Print Nome   ' Exibirá o nome do Arquivo
       Nome = Dir   ' Obtém a próxima entrada.
    Loop
     
End Sub


Agora e só vc implementar a rotina de inclusão no banco de dados na linha Debug.Print Nome .


Espero ter ajudado.
Tópico encerrado , respostas não são mais permitidas
Voltar