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

 


Tags cloud

Siberia Cartolina ristorante riflettore Sahara articolazioni Camgirls trattino visite Eritrea Moneta Liam Hemsworth venere artista Comunicazione shopping aristocratica Televisione doppiatori HTTP_REFERER suffisso notturno valerianella trascinare icona teleferica subaudio Alfonso XIII di Spagna manuali CAF LVOR tariffe Candele SatFinder frequenze costellazioni Rasbore gioielleria reattanza capacitiva atto tigullio Bari Labirintidi Ray Winstone Massimo Boldi INTEK Grandine Mike Myers conto corrente bancario Mackenzie Foy Ohm stagioni cavolo verza Smartphone Gemma Ward motori febbraio toroide Cavo coassiale Cams lunghezza d'onda serie System Fusion Someone Like You sedano nodo Chris Rock DRM finocchio atmosferica spessore comunicazioni petrolio Filetype Zero Assoluto Azzorre 112 gelicidio Unione Antliae eBay religioso ctr separazione vegetali backlink VV-898 parabola obbiettivo zoom 18-55 mm La2 Impressione microrganismi firmamento Digital / Analog rucola IFR Giacomo Ciarrapico Noa Zatta AM giglio della Madonna Alessandro Magno Libero Vettis World Cup la 5 Trichogaster leeri Paleo-proterozioca CTCSS Dailymotion Brad Pitt Regina Migratore JAR-OPS ecologico inlink Toni Agrippa musica pupilla frame Umbria nucleo terrestre TNC Willow Shields Al Melling Dirette frecce crateri marini Giorgio Paltrinieri zucchero voltaggio Geminidi bruschette disturbo CGIAR erbivori FT1DR Mare Tranquillitatis PNG vetro Richard Harris Fenici NTFS dispositivo elettronico Scorpione vapore acqueo Regione 1 macedone dritto tumefazione aceto