quarta-feira, 24 de setembro de 2008

Listar arquivos de uma pasta

Já era tempo de começar a postar dicas de VBA...
"Abrindo" a nova fase, segue um código que eu uso para listar e catalogar meus mp3's.
Código bem simples e com alguns comentários para facilitar o entendimento:


Sub lista_arquivos()
Dim pasta As String
Dim linha As Integer
Dim arquivo As String
linha = 1

'Pega o caminho completo da pasta
pasta = InputBox("Digite o caminho da pasta")

'Cabeçalho
Cells.ClearContents
Cells(linha, 1) = "Nome do Arquivo"
Cells(linha, 2) = "Tamanho"
Cells(linha, 3) = "Data/Hora"
Range("A1:C1").Font.Bold = True
linha = linha + 1

'Lista o primeiro arquivo da pasta
'arquivo = Dir(pasta, 7)
arquivo = Dir(pasta, 7)
Cells(linha, 1) = arquivo
Cells(linha, 2) = FileLen(pasta & arquivo)
Cells(linha, 3) = FileDateTime(pasta & arquivo)

'Lista os arquivos restantes
Do While arquivo <> ""
arquivo = Dir
If arquivo <> "" Then
linha = linha + 1
Cells(linha, 1) = arquivo
Cells(linha, 2) = FileLen(pasta & arquivo)
Cells(linha, 3) = FileDateTime(pasta & arquivo)
End If
Loop
End Sub

5 comentários:

Anônimo disse...

Excelente!
Muito prático.
Obs: quando forem rodar a macro, lembrem-se de inserir no caminho do arquivo a barra ("\") no final.

Unknown disse...

http://paste.ubuntu.com/597766/
link acima é do post do KAZU
só que quando a gente copia o script
do KAZU e cola direto no VBA
ele fica numa linha só

Entao arrumei ele lá no VBA
e depois upei no paste.ubuntu
fica uma dica ai pro pessoal
que gosta de script assim como eu !!

E VALEU !! KAZU !!! SHOW DE BOLA !!!

Anônimo disse...

O esta de Parabéns Funcionou certinho =D

Marcos disse...

Cara show!!!
para os que estao enteressados em mais informações eu achei outro post bem legau.

se o adminstrador permitir eu divulgar esse link agradeceria.

segue o link:
http://www.ambienteoffice.com.br/excel/gerar_planilha_com_arvore_de_arquivos_com_hyperlink/

Anônimo disse...

Muito bom e fácil.

obrigada.

Pesquisar este blog

Arquivo do blog

Quem sou eu

Minha foto
Administrador de Empresas/Técnico em Processamento de Dados. Microsoft Office User Specialist - Excel Proficient. Pós-graduado em Business Intelligence.