Ir ao conteúdo
  • Cadastre-se

Outro Criar relatório, dados de uma pasta no pc, arquivos e extensão


Posts recomendados

Tipo gerar relatório de uma pasta no computador, em um script, e salvar os dados de uma pasta ex:  musica e sua extensão,

separado em  2 colunas. gerando salvamento em txt, ou em excel, gerando relatório.

 

ex: pegar um caminho de uma PASTA no computador.

image.png

 

ex: tenho uma pasta pai.

e o relatório ficasse assim no Excel assim.

image.png

Link para o comentário
Compartilhar em outros sites

Segue opcão de criar a lista em um arquivo do Excel através de um script vbs
Abra o Bloco de notas e coloque o seguinte código vbscript

Dim objFSO
Dim objFolder
Dim objFile
Dim i
Dim xls
Dim Wb
Set xls = CreateObject("Excel.Application")
xls.Visible = True
Set Wb = xls.Workbooks.Add()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Temp") '*** ALTERE O CAMINHO DA SUA PASTA *****
i = 1
With Wb.Sheets(1)
.Cells(i, 1) = "Name"
.Cells(i, 2) = "Extension"
.Cells(i, 1).Font.Bold = True
.Cells(i, 2).Font.Bold = True
For Each objFile In objFolder.Files
.Cells(i + 1, 1) = Left(objFile.Name, InStr(objFile.Name, ".") - 1)
.Cells(i + 1, 2) = "." & objFSO.getextensionname(objFile.Path)
i = i + 1
Next 
.range("A:A").Columns.AutoFit
.range("B:B").Columns.AutoFit
End With
Wb.SaveAs (objFolder & "\Lista_de_Musica.xlsx") '*** ALTERE O CAMINHO DA SUA PASTA E NOME DO ARQUVO C/ EXTENSAO*****
 'wb.Close 'Fecha o excel

Após alterar o caminho correto dos arquivos de nusica e do arquivo excel 9que sera gerado), no script acima, salve o vbscript com a extensão .vbs

 

Opcional: Crie um atalho para o arquivo vbs e coloque-o na área de trabalho do usuário (você pode alterar o ícone do atalho para mostrar o ícone do excel clicando com o botão direito do mouse e escolhendo Propriedades / guia Atalho / botão Alterar ícone)

:

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...