Ir para conteúdo
Fórum Script Brasil
  • 0

listar subpastas e ficheiros de pasta principal


josianne

Pergunta

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

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...