Discussion :

[druidez]

Bonjour,

J'aimerais selectionner un fichier au hazard dans un repertoire mais je ne trouve pas comment faire.
Je sais lister un repertoire et afficher les fichier contenue par celui ci mais je ne trouve pas comment en selectionner un au hazard

merci de votre aide


Exemple de code pour lister un repertoire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
<% Set FSO = _
   Server.CreateObject("Scripting.FileSystemObject") %>
Récupérer le path long du dossier qui nous intéresse
<% dir = Server.MapPath("mon_dossier/") %>
Obtenir un pointeur vers ce même dossier
<% set foldPt = FSO.GetFolder(dir) %>
Lire la collection des fichiers de ce dossier
<% set fc = foldPt.Files %>
ou la collection des sous-dossiers de ce dossier
<% set fc = foldPt.SubFolders %>
enfin lire cette collection
<% for each f in fc %>
   <li>Nom : <%=f.name%>
   <li>Taille : <%=f.size%> octets
   <li>Création : <%=f.dateCreated%>
   <li>Modification : <%=f.dateLastModified%>
   <li>Dernier accès : <%=f.dateLastAccessed%>
   <br><br>
<% next%>
Le nombre d'éléments de la collection
(fichiers ou dossiers) est
<% = fc.count %>

[ahage4x4]

L'idee est de mettre tous les noms de fichiers dans un tableau puis choisir un nombre aleatoire entre 0 et la limite de tableau, ce nombre donnera un fichier:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Random
i=Clng ( (limitesuperieure-1)*rnd + 1 )  --->Donne aleatoirement un nombre entre zero et limitesup
fichier=Tbl(i) ---->nom du fichier aleatoire.

Voila en gros, reste a faire l'algo qui mets chaque fichier dans une ligne du tableau.
J'espere que ca aide

[druidez]

merci c'est ce que je vais faire.
Cependant je pensais que l'on pouvais directement attaquer la variable fc tel quel : fichier = fc(random).name mais apparament fc est une collection est pas un tableau indexé.

[ahage4x4]

Je n'ai jamais trop utilisé les collections, desolé de ne pas pouvoir t'aider plus.
Cordialement
Anthony