probleme avec un array

Version imprimable

Salut,

je voudrais créer un tableau avec a chaque fois les noms du fichier que j'ai dans mon repertoire.

je pense que je dois utiliser redim pour ajouter le nom de mon fichiers a tableau (je ne connais pas le nombre de fichier a l'avance)

mais je bloque un peu

pourriez-vous m'aider?

merci

voila mon code test:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 <html> <head> <title>Untitled</title> <%Set FSO = Server.CreateObject("Scripting.FileSystemObject")%> <%dir = Server.MapPath("pix/")%> <%set foldPt = FSO.GetFolder(dir)%> <%set fc = foldPt.Files%> </head> <body> <%dim photo%> <%for each f in fc%> <%next%> <% dim a a = array(photo)%> <%=a(0)%> il y a <%=fc.count%> fichiers </body> </html>

27/11/2003, 12h19
zoltar

Reponse
Salut,

Pour redimensionner un tableau, il faut d'abord le déclarer.
Par exemple :

Dim a(3)

et ensuite :
Code:

1 2 nb = fc.count Redim a(nb)
27/11/2003, 14h16
kaygee
j'ai modifié mon code comme ceci
Code:

1 2 3 4 5 6 7 8 9 <% dim a(3) nb = fc.count redim a(nb) %> <%for each f in fc%> <%a(f) = "historique" + f%> <%next%>
et j'ai cette erreur

Citation:

Type d'erreur :
Erreur d'exécution Microsoft VBScript (0x800A000A)
Tableau fixe ou temporairement verrouillé
/new/testefichier.asp, line 18

peut tu m'aider?

merci

[Balise code ajoutée par jérôme]
[Merci d'y penser vous-même à l'avenir]
27/11/2003, 17h07
zoltar

Reponse

Essaye ça :

Code:

Redim a(Cint(nb))

Cint : conversion de la variable nb en sous-type entier (Integer).

Si ça marche pas non plus, dimensionne ton tableau dès le départ à un nombre que tu estimes supérieur au nombre de fichiers : si tu estimes le nombre maximum à 500, dimensionne le à 600, etc.

Code:

Dim a(600)

Pour les balises <% et %>, c'est pas la peine d'en mettre sur chaque ligne : ça retarde l'interprétation du code.

Meilleur code

J'ai pas compris pourquoi tu veux stocker les noms de fichiers dans un tableau.
Il y a mieux : c'est créer un lien hypertexte pour chaque fichier affiché.
Voilà le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
<%
Dim fsys, dossier, collec, f, flist, chemin
chemin="\monDossier"
Set fsys=CreateObject("Scripting.FileSystemObject")
Set dossier=fsys.GetFolder(Server.MapPath(chemin))
Set collec=dossier.Files
For Each f in collec
	flist=flist + "<a href=""" & chemin & f.name """>" 
	& f.Name & "</a><br>" 
Next 
Response.Write flist 
Set fsys=Nothing
Set dossier=Nothing 
Set collec=Nothing  
%>

28/11/2003, 09h31
kaygee

donné une dimension superieur suis pas trop pour.

en fait c'est un peu plus compliqué que ca.

je vais utilisé chaque photo pour une banière animée de 5 photos qui defile de haut en bas ou inverse.

j'ai un nombre inconnu de photo et donc j'ai besoin d'un tableau avec les nom, pour pouvoir aller les rechercher une a une pour faire suivre mon anim.

avec un tableau j'aurai deja toutes les références dont j'aurai besoin et je pourrai utiliser chaque photo indépendament

merci

Salut,

essai ça :

Code:

1
2
3
4
5
6
7
8
9
<% 
 
Dim a
a = Array()
 
For Each f In fc
   Redim Preserve a(UBound(a)+1)
   a(UBound(a)) = "historique" + f
Next%>

04/12/2003, 08h58
kaygee

merci ca marche a merveille

je vais pouvoir m'y mettre serieux
26/03/2007, 12h33
brunocatteau

Je me permets de compléter ce post pour l'étendre aux tableaux à plusieurs dimensions car j'ai eu la même erreur ("This array is fixed or temporarily locked" ou "Tableau fixe ou temporairement verrouillé") sur un tableau à deux dimensions :

Dim a
Redim a(3,0)
au lieu de
Dim a(3,0)

Il faut dimensionner le tableau à une dimension, puis lui ajouter la deuxième avec un redim
ensuite, on peut faire

<%
Dim a
Redim a(3,0)
'Dim a(3,0)

fc = split("toto,titi,tutu,tyty",",")
For Each f In fc
Redim Preserve a(3,UBound(a,2)+1)
a(1,UBound(a,2)) = f
a(2,UBound(a,2)) = f
a(3,UBound(a,2)) = f
Next
%>

Bruno CATTEAU
http://bruno.catteau.free.fr