Afficher la taille de tous les sous -repertoires

Soyez le premier à donner votre avis sur cette source.

Vue 23 096 fois - Téléchargée 331 fois

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>

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
jeudi 12 juin 2003
Statut
Membre
Dernière intervention
6 octobre 2003

Salut et merci pour le code, mais je veux savoir si il possible de l'adapter pour connaitre le contenu complet d'un fichier .
Messages postés
7
Date d'inscription
lundi 13 mai 2002
Statut
Membre
Dernière intervention
14 mai 2002

Merci Nix c'est exactement ce que je cherchais.

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.