listar pastas e ficheiros num excel

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

Bom dia!!

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


Att

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

ListWsheetClosedWrkbks() ?

Bom dia!!

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


Att

agora retorna:

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

Bom dia!!

Mande seu anexo!!!

Att

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