all html : Le portail des webmaster

liste des forums liste des discussions Participer à la discussion

Message publié le dimanche 08 octobre 2006 à 19 h 48 par trialrofr.

Bonjour,
je n'arrive pas à lire les fichiers qui sont dans le dossier "archives"

voici le code de ma page archives.asp

**********************************

<% Set FSO = _
Server.CreateObject("Scripting.FileSystemObject")
dir = Server.MapPath("archives/")
' j'ai aussi essayé
' dir = Server.MapPath("wwwroot/archives/")
' dir = Server.MapPath("./archives/")
set fc=FSO.getFolder(dir).files

dim toplk(5,2) : maxtop = 10

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="archives/<%=toplk(k,2)%>">
<%=replace(toplk(k,2),".asp","")%>
</A><br>
<%next %>

*********************************

la page archives.asp et le dossier "archives" sont à la racine de mon site.

voici le message d'erreur :

-------------------------
Microsoft VBScript runtime error '800a0009'

Subscript out of range: 'kk'

/archives.asp, line 224
------------------------

Comment faire svp?

D'avance merci.

• participer

Message publié le lundi 09 octobre 2006 à 12 h 05 par npm.

Il semblerai que ta variable kk soit en dehors des limites de ton tableau ce qui genere l'erreur :/

• participer

Message publié le lundi 09 octobre 2006 à 16 h 52 par trialrofr.

Hi
En fait j'ai recopier le script chez asp-php.

de plus quand je met le script suivant :

---------------------
<% Set FSO = Server.CreateObject("Scripting.FileSystemObject") %>


<% dir = Server.MapPath("archives/") %>


<% set foldPt = FSO.GetFolder(dir) %>

<% set fc = foldPt.Files %>

<% set fc = foldPt.SubFolders %>


<% 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 %>

----------------------

La fonction affiche zero fichier ou dossier!!

• participer

Message publié le mardi 10 octobre 2006 à 11 h 15 par npm.

ta collection fc prend la collection foldPt.Files et ensuite tu l'ecrases avec foldPt.SubFolders donc si il y a aucun dossier mais que des fichiers c'est normal que tu n'ai rien.

utilises 2 vars 1 pour les fichiers et une autre pour les dossiers.

• participer

Message publié le jeudi 12 octobre 2006 à 02 h 16 par trialrofr.

Slt

Ok merci pour l'info
Je vais utiliser 2 variables

• participer

Message publié le jeudi 12 octobre 2006 à 02 h 27 par trialrofr.

Excellent ca marche du tonnerre!!!!

Merci.

• participer

liste des forums liste des discussions Participer à la discussion

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