Skin ADV
Stampa

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

 

1 1 1 1 1 1 1 1 1 1 Rating 0.00 (0 Votes)

hits
1255
Ritieni il contenuto di questa pagina incompleto, non attendibile oppure oggetto di altre problematiche? INVIA UNA SEGNALAZIONE Grazie!

Tags cloud

cena guadagnare online avvolgere sport Palatino Levante Olio motore Laura Morante scrivania ip-camera QRA64 solaio luce commissioni simboli Calabrone Gigante Asiatico Infinite Volte unico offerta Luigi Proietti Cartagine MS DOS vapore colazione Ennio Fantastichini villaggio Azzorre Valerio Mastandrea totocalcio UEFA black hole Naturalismo frutta Bancomat Edward Whymper TVOR oculare WSPR anidride carbonica calzatura condensatore Tiles incrociato anonimo messaggio digitale terrestre Trasporto Aereo RF polpa Mattarella PageRank canada Marco Aurelio Gary Ross PSE stazione desktop Enrico Ruggeri Ghiacciaio 1980 multiplayer Cassiopea Mattel Canale Riccardo Milani MOV HOT BIRD cartoni ovoli VSWR Libeccio Marco Masini Platy ping Cosenza donne Mark Wingett risorsa dadini Labirintidi trasmetti avvio xreference significato mondiali calcio When We Were Young prefisso La Borsa Di Una Donna Call of Duty: uova spam Pelvicachromis pulcher sandalo Napolitano John Adams Fuhrer CubeSat solidi John Goodman C4FM Apollo 17 Umberto Guidoni choke Combattente fotografia saldo disponibile canto Keplero notte isotropa giglio candido Elefante Africano HF JPG MasterCard costosi Quinseina Linnè IGT Lambert applicazione truffe QRM aggiornamenti cina asparago velocità della luce alacce cappone massaggio Assistenza Online Jacqueline Emerson Quentin Tarantino la7d radioonde Ray Winstone JTDX conferma eliminazione vela James Nesbitt Gianmarco Banzi HTML Yagi acquistare cavalla pollo di grano Timocharis Robin Williams Guppy metano