L'instruction For Each...Next parcourt tous les éléments d'un tableau ou d'une collection afin d'appliquer à chacun un traitement défini par une séries d'instructions.
For Each Elément In Groupe ' Instructions... Next [Elément]
Elément est le nom d'une variable contenue dans un groupe. Cette variable peut être du type Variant, Objet générique ou Objet Automation pour les collections et seulement Variant pour les tableaux.
Groupe représente un conteneur d'éléments comme un tableau ou un collection.
Exemple : [voir]<% response.expires = "-1" %>
<html>
<body>
<%
Dim dossier, chemin, dossier_parent
Set ObjSystemeFichier = Server.CreateObject("Scripting.FileSystemObject")
dossier = Request.QueryString("dossier")
chemin = Server.MapPath(dossier&"/")
set objet_dossier = ObjSystemeFichier.getFolder(chemin)
%>
<table border="0" align="center">
<%
if dossier <> "" Then
dossier_parent = Left(dossier, inStrRev(dossier, "/")-1)
%>
<tr>
<th colspan="2">
<a href="exemple.asp?dossier=<%=dossier_parent%>"
title ="Retour au répertoire parent">
../
</a>
</th>
</tr>
<% end if %>
<tr>
<th colspan="2"><h2><%=objet_dossier.Name%></h2></th>
</tr>
<tr>
<th colspan="2">Dossiers</th>
</tr>
<%
for each sousDossier in objet_dossier.SubFolders
%>
<tr>
<td width="12"> </td>
<td>
<a href="exemple.asp?dossier= _
<%=dossier&"/"&sousDossier.Name%>">
<%=SousDossier.Name%>
</a>
</td>
</tr>
<% next %>
<tr>
<th colspan="2">Fichiers</th>
</tr>
<%
for each Fichier in objet_dossier.Files
%>
<tr>
<td width="12"> </td>
<td>
<a href="<%=dossier&"/"&Fichier.Name%>">
<%=Fichier.Name%>
</a>
</td>
</tr>
<%
next
Set ObjSystemeFichier = Nothing
Set objet_dossier = Nothing
%>
</table>
</body>
</html> |