"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:
Excelente!
Muito prático.
Obs: quando forem rodar a macro, lembrem-se de inserir no caminho do arquivo a barra ("\") no final.
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 !!!
O esta de Parabéns Funcionou certinho =D
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/
Muito bom e fácil.
obrigada.
Postar um comentário