[VB6] Problema iterazione con Index

[RastaRego]

Ciao a tutti...
Avrei bisogno di aiutino..
in una form ho una matrice dii controllo text1(INDEX) dove index va da 0 ad un numero che può essere 5 come 200 (quindi non definito..)
vorrei avere un file di testo sul desktop dove contengo tutti i valori assegnati a text1(index) incolonnati.. come faccio a farlo??

Ho provato con

open (percorso file)
print #1, text(index).text
close #1

ma in qualsiasi ciclo lo inserisco mi va in errore, anzi mi scrive solo text1(0)!!

Qualche idea??
Thanks!

[GudFella]

devi scorrere l'array di controlli

Open (percorso) For Output As #1		
	For i=0 Text.Count - 1
		Print #1, Text(i).text 
	Next
Close #1

[RastaRego]

Ma perché "Open (percorso) for output as #1" ??
io voglio stampare il contenuto di diverse text-box presenti su una form (frmProva)...
:master:

[RastaRego]

Sei svenuto??!?

[GudFella]

Originariamente inviato da RastaRego
Ma perché "Open (percorso) for output as #1" ??
io voglio stampare il contenuto di diverse text-box presenti su una form (frmProva)...
:master:

e allora ?
l'hai provato ?

[RastaRego]

Si, e sul ".count" mi da l'errore: wrong number of arguments or invalid property assignment..

[RastaRego]

Ok, risolto, ma non mi scrive niente!!

[RastaRego]

Qualche idea???


Private Sub txtq_LostFocus(INDEX As Integer)
Static Y As Integer
Dim X As Currency
Dim nome, data, Path, path2 As String
Static Z As Currency
Dim tb As DAO.Recordset
.
.
.
.
.

nome = txtcli.Text
data = txtdate.Text
Path = ("C:\...........\archivio\")
path2 = (Path & nome & "\")
Open (path2 & "ART" & "_" & txtdate.Text & ".txt") For Output As #1
For INDEX = 0 To cod1.count - 1
Print #1, cod1(INDEX).Text
Next
close #1
Exit Sub
.
.
.

[GudFella]

For INDEX = 0 To cod1.count - 1 
   Print #1, cod1(INDEX).Text 
Next INDEX

[RastaRego]

Mi scrive solo il primo articolo..
Hai perso l'uso della parola?!?!?