Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 listar pastas e ficheiros num excel

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
josianne



Mensagens : 4
Data de inscrição : 14/08/2014

MensagemAssunto: listar pastas e ficheiros num excel   Qui Ago 14, 2014 12:14 pm

Oi galera!
sou muito nova na programaçao em vba, mas estou adorando esse novo objectivo!
necessito de ajuda para produzir um ficheiro .vbs que devolva um excel com todas as subpastas e ficheiros dentro da pasta principal
name, LastDateModified, size, path, numoffiles
podem ajudar por favor?
obrigada!

até agora o q tenho é isso:
******************************************************

Dim fso
Dim ObjOutFile

Set fso = CreateObject("Scripting.FileSystemObject")

Set ObjOutFile = fso.CreateTextFile("OutputFiles.csv")

ObjOutFile.WriteLine("Type" & vbTab & "Name" & vbTab & "File Path")

GetFiles("C:\Intel")

ObjOutFile.Close
WScript.Echo("Completed")
Function GetFiles(FolderName)

Dim ObjFolder
Dim ObjSubFolders
Dim ObjSubFolder
Dim ObjFiles
Dim ObjFile
Set ObjFolder = fso.GetFolder(FolderName)
Set ObjFiles = ObjFolder.Files

For Each ObjFile In ObjFiles
ObjOutFile.WriteLine("File " & vbTab & ObjFile.Name & vbTab & ObjFile.Path)
Next

Set ObjSubFolders = ObjFolder.SubFolders
For Each ObjFolder In ObjSubFolders

ObjOutFile.WriteLine("Folder " & vbTab & ObjFolder.Name & vbTab & ObjFolder.Path)

GetFiles(ObjFolder.Path)
Next
End Function
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: listar pastas e ficheiros num excel   Qui Ago 14, 2014 2:56 pm

Bom dia!!

Seria isso...algo assim...?
http://usuariosdoexcel.forumeiros.com/t156-listar-o-nome-de-varias-guias-em-diretorio-especifico


Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
josianne



Mensagens : 4
Data de inscrição : 14/08/2014

MensagemAssunto: Re: listar pastas e ficheiros num excel   Qui Ago 14, 2014 4:42 pm


obrigada pela ajuda!
mas porque me retorna
"compile error: User-defined type not defined"
em

ListWsheetClosedWrkbks() ?
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: listar pastas e ficheiros num excel   Qui Ago 14, 2014 4:52 pm

Bom dia!!

Verifique se está faltando alguma referencia ex: ADO
http://support.microsoft.com/kb/145759


Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
josianne



Mensagens : 4
Data de inscrição : 14/08/2014

MensagemAssunto: Re: listar pastas e ficheiros num excel   Qui Ago 14, 2014 5:03 pm

agora retorna:

'name conflicts with existing module, project, or project library'

Sad
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: listar pastas e ficheiros num excel   Qui Ago 14, 2014 5:09 pm

Bom dia!!

Mande seu anexo!!!

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
josianne



Mensagens : 4
Data de inscrição : 14/08/2014

MensagemAssunto: codigo do ficheiro .vbs   Qui Ago 14, 2014 5:52 pm

Código:
Dim fso
Dim ObjOutFile
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
Set ObjOutFile = fso.CreateTextFile("OutputFiles.csv")
 
ObjOutFile.WriteLine("File Path and Name ** " & "DateModified" & " ** Size in Kbs ** " & "Files on Folder")
 
GetFiles("C:\Intel")
 
ObjOutFile.Close
 WScript.Echo("Completed")
 Function GetFiles(FolderName)
 
 Dim ObjFolder
 Dim ObjSubFolders 
 Dim ObjSubFolder
 Dim ObjFiles 
 Dim ObjFile 
 Set ObjFolder = fso.GetFolder(FolderName)
 
 Set ObjFiles = ObjFolder.Files 
 For Each ObjFile In ObjFiles     
 ObjOutFile.WriteLine(ObjFile.Path & " ** " & ObjFile.DateLastModified & " ** " & ObjFile.Size)
 Next     
 
 Set ObjSubFolders = ObjFolder.SubFolders
 For Each ObjFolder In ObjSubFolders       
 ObjOutFile.WriteLine(ObjFolder.Path & " ** " & ObjFolder.DateLastModified & " ** " & ObjFolder.Size & " ** " & ObjFolder.Files.Count)   
 
             
GetFiles(ObjFolder.Path) 
 Next
 End Function
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: listar pastas e ficheiros num excel   Hoje à(s) 9:57 am

Voltar ao Topo Ir em baixo
 
listar pastas e ficheiros num excel
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Folder Locked (Proteja suas pastas!)
» Aros EXCEL pretos furação Honda VENDIDOS
» Como listar os arquivos do diretorio?
» Office - Word / excel
» Anexar ficheiros

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: