Trucsweb.com

Trucsweb.com

ASP

Introduction à Scripting.FileSystemObject

RDFFav

Trier les fichiers dans un répertoire par date - Pour créer une liste de liens aux fichiers

Le navigateur ouvre beaucoup plus rapidement un fichier texte qu’une base de données peut afficher un texte. Que ce soit des images, des textes ou tout ce qu’un navigateur peut ouvrir, les liens directes vers les fichiers d’un même répertoire peut-être affiché avec la fonction « GetFolder( ) ».Trier trie trié fichiers images texte répertoire date création liens GetFolder tableau array name DateCreated bubble bulle sfo files Scripting.FileSystemObjectTrier les fichiers dans un répertoire par date - Pour créer une liste de liens aux fichiers

  • · Niveau : INTERMÉDIAIRE
  • · Compatibilité : ITous les navigateurs

Le navigateur ouvre beaucoup plus rapidement un fichier texte qu’une base de données peut afficher un texte. Que ce soit des images, des textes ou tout ce qu’un navigateur peut ouvrir, les liens directes vers les fichiers d’un même répertoire peut-être affiché avec la fonction « GetFolder( ) ». De plus, pourquoi ne pas trier les fichiers par date de création !

Pour ce faire, vous devez obtenir la liste des fichiers (nom et date de création des fichiers) à l’aide de la fonction " GetFolder( ) ", trier les fichiers par date dans un tableau (array), et afficher le résultat sous forme de liens.

RESTRICTION, pour que cette technique fonctionne rapidement vous devez vous assurer que le répertoire ne contient que des fichiers valide. Sinon, il faut ajouter un test de condition pour valider les fichiers.

Code complet:

<% Option Explicit %>
<html>
<head>
<title>Liens vers les fichiers d’un répertoire</title>
</head>

<body bgcolor="#FFFFFF">
<%
Dim fs, f, fTemp, fFichiers, repertoire, i, j, n

’ Tableau à deux dimensions (Array) pour garder les
’ informations des fichiers et un temporaire pour le tri
Dim lesFichiers(500,2), sTemp(1,2)

’ Variable contenant le nom du répertoire
’ où résident les fichiers. Vous pouvez entrer le nom
’ complet du répertoire (D:\Inetpub\wwwroot\site\repertoire)
’ ou le répertoire courant (Server.MapPath("."))
repertoire = Server.MapPath(".")

’ Ouvrir le répertoire et obtenir le nom des fichiers
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(repertoire)
Set fFichiers = f.Files

’ Mettre le nom et la date des fichiers dans un tableau (Array)
i = 0
For Each fTemp in fFichiers
  i = i+1
  lesFichiers(i,1) = fTemp.name
  lesFichiers(i,2) = fTemp.DateCreated
Next

’ Trier la liste des fichiers
n = i
For i = 1 to n
  for j = 1 to i
    ’ Inverser si la date de création est inférieure
    If lesFichiers(i,2) < lesFichiers(j,2) Then
      sTemp(1,1) = lesFichiers(i,1)
      sTemp(1,2) = lesFichiers(i,2)
      lesFichiers(i,1) = lesFichiers(j,1)
      lesFichiers(i,2) = lesFichiers(j,2)
      lesFichiers(j,1) = sTemp(1,1)
      lesFichiers(j,2) = sTemp(1,2)
    end if
  next
next
%>

Le Tableau (array) " lesFichiers " contient maintenant la liste des fichiers du répertoire trié par date de création. Il ne reste plus qu’à afficher les liens (en format liste).
<ul>
<% For i = 1 to n %>
  <li> <a href=<"%=lesFichiers(i,1) %>">
  <%=lesFichiers(i,1) %></a> </li>
<%Next%>
</ul>
</body>
</html>

Django (Oznog) Blais
Dernière mise à jour :

Commentaires

Ajouter un commentaire
Votre adresse de courriel ne sera pas publiée. * L'astérisque indique les champs obligatoires.
Votre évaluation du tutoriel

       Visites : 9076 - Pages vues : 21466
X

Trucsweb.com Connexion

Connexion

X

Trucsweb.com Mot de passe perdu

Connexion

X

Trucsweb.com Conditions générales

Conditions

Responsabilité

La responsabilité des Trucsweb.com ne pourra être engagée en cas de faits indépendants de sa volonté. Les informations mises à disposition sur ce site le sont uniquement à titre purement informatif et ne sauraient constituer en aucun cas un conseil ou une recommandation de quelque nature que ce soit.

Aucun contrôle n'est exercé sur les références et ressources externes, l'utilisateur reconnaît que les Trucsweb.com n'assume aucune responsabilité relative à la mise à disposition de ces ressources, et ne peut être tenue responsable quant à leur contenu.

Droit applicable et juridiction compétente

Les règles en matière de droit, applicables aux contenus et aux transmissions de données sur et autour du site, sont déterminées par la loi canadienne. En cas de litige, n'ayant pu faire l'objet d'un accord à l'amiable, seuls les tribunaux canadien sont compétents.

X

Trucsweb.com Trucsweb

X

Trucsweb.com Glossaire

X

Trucsweb.com Trucsweb

X

Trucsweb.com Trucsweb

Conditions

Aucun message!

Merci.

X
Aucun message!
X

Trucsweb.com Créer un compte

Créer un compte

.
@