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

[Loclyh]

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.

 

ex: tenho uma pasta pai.

e o relatório ficasse assim no Excel assim.

[Basole]

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)

: