Script Windows 2000

[carlojil]

Devo realizzare uno script in grado di estrarre tutti i file contenuti in una cartella e relativa dimensione salvando il risultato in un file TXT.

[fabio309]

una soluzione potrebbe essere

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

[paparino72]

Originariamente inviato da fabio309
una soluzione potrebbe essere

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?

[MItaly]

No, in un .vbs.

[fabio309]

sorry mi dimentico sempre questa parte