LISTEUR DE FICHIER

<%
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>
		&nbsp;&nbsp;&nbsp;
								//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>
    							&nbsp;&nbsp;
								<BR>
								&nbsp;&nbsp;&nbsp;
								<% 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