Originariamente inviato da fabio309
una soluzione potrebbe essere
codice:
Const cartella = "c:\temp"
Set objShell = CreateObject("Shell.Application")
Set oggettocartella = objShell.Namespace(cartella)
Set objFolderItem = oggettocartella.Self
Set elencofile = oggettocartella.Items
Set oggettofilesistem = CreateObject("Scripting.FileSystemObject")
Set oggettofile = oggettofilesistem.OpenTextFile("c:\fabio.txt",2,True)
For Each singolofile in elencofile
	oggettofile.WriteLine(singolofile.name & " " & singolofile.size)
Next

e si salva in un .bat?