all html : Le portail des webmaster

liste des forums liste des discussions Participer à la discussion

Message publié le lundi 06 avril 2009 à 17 h 25 par Muriele.

Bonjour,

Je cherche a lister des données de plusieurs répertoires (un après l'autre)...


J'ai fait ceci

repertoire = 1
Do while repertoire <=2


Select Case repertoire

case 1
dir = "aaa"
case 2
dir ="bbbb"

end select


set fc=FSO.getFolder(dir).files

dim toplk(2,2) : maxtop = 1

for each f in fc ' lecture et tri par date de création
for k = 1 to maxtop
if f.datecreated > toplk(k,1) then
s0 = f.datecreated : u0 = f.name
for kk = k to maxtop
s = toplk(kk,1) : u = toplk(kk,2)
toplk(kk,1) = s0 : toplk(kk,2) = u0
s0 = s : u0 = u
next
exit for
end if
next
next


for k = 1 to maxtop ' affichage
%>

<A href="<%=toplk(k,2)%>" target="_blank">
<%=replace(toplk(k,2),".asp","")%>
</A> - <%=toplk(k,1)%>
<%next

repertoire = repertoire +1
Loop
%>

Le problème est que cela ne fonctionne pas, il ne veut pas passer au répertoire suivant :-( Qui pourrait m'aider ?! Il faudrait que j'arrive a renommer "toplk(2,2)" a chaque boucle...

Merci d'avance pour votre aide

• participer

liste des forums liste des discussions Participer à la discussion

Vous devez obligatoirement vous identifier en tant que membre pour participer à cette discussion.