Dimensione cartella

[md76]

Dovrei fare una function che mi restituisca la dimensione di una cartella comprese tutte le sottocartelle con rispettivi file. Come posso fare ?

[chipdb]

Metodo 1, spartano e poco pratico ma che funziona:
Fai una funzione ricorsiva che controlla file per file le dimensioni e fa una sommatoria totale.

Metodo 2, pratico ma capita che blocchi l'explorer:

Function getSize(byVal Cartella as String) as String
   Dim FSO, Folder
   Set FSO = CreateObject ("Scripting.FileSystemObject")
   Set Folder = FSO.getFolder (Cartella)
   getSize = Folder.Size
   Set FSO = Nothing
End Function

Ciao

[md76]

Ho provato ad incollare la func che tu gentilmente mi hai postato su un bottone ma quando lo premo mi restituisce: La chiamata di funzione a sinistra dell'assegnazione deve restituire variant o object

[md76]

ok ho risolto tutto

grazie ancora