Afficher la taille de tous les sous -repertoires


Télécharger le projet
Commenter

Description

Pratique surtout pour un provider, histoire de checker si un utilisateur ne dépasse pas son quota :)

Source / Exemple : 


<html>
	<title>Taille des répertoires contenu dans un disque dur ou dans un répertoire</title>
	<body bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#0000FF" alink="#FF0000">

<table width="100%" border="1" cellspacing="0" cellpadding="2" align="center" bordercolor="#000000">
	<tr>
		<td align="center" bgcolor="#C0C0C0"><b><font face="Verdana" size="2">Répertoire</font></b></td>
		<td align="center" bgcolor="#C0C0C0"><b><font face="Verdana" size="2">Go</font></b></td>
		<td align="center" bgcolor="#C0C0C0"><b><font face="Verdana" size="2">Mo</font></b></td>
		<td align="center" bgcolor="#C0C0C0"><b><font face="Verdana" size="2">Ko</font></b></td>
		<td align="center" bgcolor="#C0C0C0"><b><font face="Verdana" size="2">Octets</font></b></td>
	</tr>
<%
Dim LesReps, LesFichiers, Taille, LeChemin
LeChemin = "c:\" 'Changez ici le chemin ou vous souhaitez regarder la taille des sous-répertoires
Set LesReps = server.createobject("Scripting.FileSystemObject")
Set LesFichiers = LesReps.GetFolder(LeChemin)

For Each LesReps In LesFichiers.SubFolders
	Taille = Taille + LesReps.Size %>
	<tr>
		<td align="center"><font face="Verdana" size="2"><%=LeChemin%><%=LesReps.Name%>\</font></td>
		<td align="center"><font face="Verdana" size="2"><%=FormatNumber((LesReps.Size/1024/1024/1024),2)%> Go</font></td>
		<td align="center"><font face="Verdana" size="2"><%=FormatNumber((LesReps.Size/1024/1024),2)%> Mo</font></td>
		<td align="center"><font face="Verdana" size="2"><%=FormatNumber((LesReps.Size/1024),0)%> Ko</font></td> 
		<td align="center"><font face="Verdana" size="2"><%=FormatNumber(LesReps.Size,0)%> octets</font></td> 
	</tr>
<%Next%>
	<tr>
		<td align="center" bgcolor="#C0C0C0"><b><font face="Verdana" size="2">Total</font></b></td>
		<td align="center" bgcolor="#C0C0C0"><font face="Verdana" size="2"><b><%=FormatNumber((Taille/1024/1024/1024),2)%> Go</b></font></td>
		<td align="center" bgcolor="#C0C0C0"><font face="Verdana" size="2"><b><%=FormatNumber((Taille/1024/1024),2)%> Mo</b></font></td>
		<td align="center" bgcolor="#C0C0C0"><font face="Verdana" size="2"><b><%=FormatNumber((Taille/1024),0)%> Ko</b></font></td> 
		<td align="center" bgcolor="#C0C0C0"><font face="Verdana" size="2"><b><%=FormatNumber(Taille,0)%> octets</b></font></td> 
	</tr>
</table>
</body>
</html>
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Nix)