Quanti Files e MB sono presenti in una determinata cartella


Ciao!
ho creato uno script a parer mio molto utile e ho il piacere di condividerlo con voi.
Con queste poche righe di codice asp è possibile sapere con esattezza quanti file e quindi quanti MB sono presenti sul vostro sito oppure in una determinata cartella.

 

gli utenti hanno caricato 

<%
set fso = server.CreateObject("Scripting.FileSystemObject")
Function ContaFile(PathCartella)
Dim NumeroFile, cartella, sottocartelle
set cartella = fso.GetFolder(PathCartella)
set sottocartelle = cartella.SubFolders
NumeroFile = cartella.files.count
for each sottocartella in sottocartelle
NumeroFile=NumeroFile+ContaFile(sottocartella.path)
next
ContaFile = NumeroFile
End Function

strCartella = "../images/" ' sostituire con la vostra cartella che volete controllare

Response.Write " " & ContaFile(Server.MapPath(strCartella)) & ""
%>

file per un totale di 

<%
Dim path, FSO, Folder, FolderSize, strSpace, strCartella, sottocartella
path = Server.MapPath("/")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(path)
FolderSize = CSng(Folder.size)
strSpace = Round(FolderSize/1024/1024, 2) ' in MB
strSpace = FormatNumber(strSpace, 2)
set Folder = Nothing
set FSO = Nothing
response.write "" & strSpace & " "
%>

megabyte