Salve, ho un problema. Sto cercando qualche chiamata API in grado di dirmi
una cartella quanti byte occupa e quanti files contiene. Sono riuscito a
fare questo, ma purtroppo il metodo è molto lento nel calcolare. Ora vi
chiedo se conoscete qualche chiamata api che inserendo un percorso, sia in
grado di calcolarmi quanto spazio occupa una cartella con relative
sottocartelle. Attendo vostre risposte!!!

--------------------------------
Inviato via http://usenet.libero.it

"Albe V°" <vaccariTOGLI_QUESTO> ha scritto nel messaggio
news:7366
> Maxtor wrote:
> > Salve, ho un problema. Sto cercando qualche chiamata API in grado di
> > dirmi una cartella quanti byte occupa e quanti files contiene. Sono
> Nelle librerie Microsoft Scripting Runtime (che fra parentesi non occorre
> neppure distribuire perchè sono installate con IE4), ci sono utilissimi
> oggetti File, Folder, Drive, ecc..., con le cui proprietà puoi giocare a
> piacimento, e soprattutto senza usare le api.

ok ..ma ptresti fare un esempio pratico con qualche riga di codice
leonello

"Maxtor"

posto qui per l'esempio (*.vbs)

'bytes
set fso = createobject("scripting.filesystemobject")
set folder = fso.getfolder("c:\windows\temp")
for each subfolder in folder.subfolders
wscript.echo subfolder.path
wscript.echo "dimensione in bytes ===>", subfolder.size
next

'Mb
'l'output e' >>> C:\FolderSize.txt
dim directoryname , fso , f
directoryname="c:\documenti"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextfile("C:\FolderSize.txt" , 8 , True)
set mainfolder=fso.GetFolder(directoryname)
Set foldercollection = mainfolder.SubFolders
For Each folder In foldercollection
t = folder.Size/1024000
On Error Resume Next
S = formatnumber(t,,,,0) & " MB "
f.write folder.path & ", " & S & vbcrlf
Next