Ce code permet de lister dans un tableau tout les fichiers qui se trouve dans les sous dossier d'un dossier, son nom, sa taille (individielle et le total du sous dossier) et le total du dossier complet... TRES pratique pour pour une page de downloads !!!
A voir !
Source / Exemple :
<%
Dim FS,F,SF,File
Set FS = CreateObject("Scripting.FileSystemObject")
// changer dossier1 pour le nom de votre dossier...
Set F = FS.GetFolder(Server.MapPath("/dossier1"))
Set SF = F.SubFolders
%>
<div align=center>
<table width="85%" border="3" cellspacing="10" cellpadding="10" bgcolor="#CCCCCC" bordercolor="black">
<TR>
<TD><H4><B>Nom</B></TD>
<TD><H4><B>Taille</B></TD>
</TR>
<% dim totalMo %>
//liste les dossier un par un a la racine du server
<% For Each F In SF
set file = F.Files
%>
<% = "<TR>" %>
<% = "<TD>" %>
<font size="2"><B><% = F.Name %></B></font><BR>
//liste les fichier un par un dans les sous dossiers
<% For Each Files In File %>
<font size="2">
// changer dossier1 pour le nom de votre dossier...
- <a href="dossier1/<% = F.name %>/<% = files.name %>" ><% = files.name %></a> <font size="1">- <% = FormatNumber((files.size/1040/1000), 2) %> Mo</font>
</font>
<BR>
<% Next %>
<% = "</TD>" %>
<% = "<TD>" %>
~ <% if (f.size/1040/1000/1000) >= 1 then %>
<font size="2">
<% = FormatNumber((F.Size /1040 / 1000 / 1000), 2) %> <B>Go</B>
<%else%>
<font size="2">
<% = FormatNumber((F.Size /1040 / 1000), 2) %> <B>Mo</B>
</font>
<%end if
totalMo = totalMo + F.size%>
<% = "</TD>" %>
<% = "</TR>" %>
<% Next %>
//faire afficher la taille total avec totalMo
Conclusion :
Seulement changer "/dossier1" à 2 endroit, le chemin du dossier racine pour que tout fonctionne...
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.