Listeur de fichier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 795 fois - Téléchargée 26 fois

Contenu du snippet

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>
		&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

Conclusion :


Seulement changer "/dossier1" à 2 endroit, le chemin du dossier racine pour que tout fonctionne...

A voir également

Ajouter un commentaire

Commentaires

Messages postés
39
Date d'inscription
vendredi 9 mai 2003
Statut
Membre
Dernière intervention
25 mai 2009

Salut !

C'est bien pratique comme petit fichier mais c'est dommage qu'il n'inclue pas les fichiers présents dans le dossier de départ qui ne sont pas classés dans des sous-dossiers.
En plus, serait-il possible de créer une sorte d'arborescence qui irait chercher les sous-dossiers des sous-dossiers ... jusqu'à la fin de la chaîne pour afficher vraiment tous les fichiers présents sur le serveur ?

Merci pour le début, c'est déjà pas mal du tout

++
Messages postés
37
Date d'inscription
mardi 18 juin 2002
Statut
Membre
Dernière intervention
28 juin 2007

Et les films liste sue les ScreenShot on peut les avoir comment ???

Je pense qu'il aurait-été judicieux de choisir un autre de tes répertoires ...

Enfin c'est mon avis personnel.
Messages postés
10
Date d'inscription
mercredi 2 avril 2003
Statut
Membre
Dernière intervention
19 avril 2004

En effet F___.. c'est une erreur de ma part = )
Messages postés
1765
Date d'inscription
jeudi 12 octobre 2000
Statut
Modérateur
Dernière intervention
11 décembre 2013
5
Interressant mais le niveau initié n'est pas justifié, cette source est tout à fait accessible aux débutants.

F___

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 (vedder1896)