akanico Captain Slow | Liste les fichiers par répertoire. Avec un lien sur une image pour les télécharger.
Code :
- <% Set FSO = _
- Server.CreateObject("Scripting.FileSystemObject" )
- dir = Server.MapPath("./" )
- set fc=FSO.getFolder(dir).SubFolders %>
- <% for each f in fc ' lecture et tri par date de création %>
- <% affich_titre=True %>
- <% Set FSO = _
- Server.CreateObject("Scripting.FileSystemObject" )
- dir = Server.MapPath("./"&f.name)
- set fc2=FSO.getFolder(dir).files
- for each f2 in fc2 ' lecture et tri par date de création %>
- <% if affich_titre=True Then %> <br><br>
- <img src="../../images/fleche_bleue.gif" width="12" height="12"> <span class="noir11bold"><%=replace(replace(f.name,"_"," " ),"--","'" )%></Span>
- <%affich_titre=False %>
- <% End If %>
- <br>
- <A href="./<%=f.name%>/<%=f2.name%>" onclick="window.open('','popup','width=600,height=500,top=200,left=150,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,copyhistory=0,resizable=1')" target="popup"><img src="../../images/plus-rouge.gif" width="10" height="10" border="0"></a>
- <span class="noir10"><%=replace(replace(replace(f2.name,".pdf","" ),"_"," " ),"--","'" )%>
- <% next %>
- <% next %>
|
J'ai adapté du code trouvé sur le Net pour faire ce que je voulais exactement. Je l'ai simplifié pour le mettre ici (normalement, il marche comme ça!) Message édité par akanico le 18-10-2004 à 14:47:39
|