lettura da file txt

[mdf137]

salve, il mio obbiettivo è quello di salvare ogni singola riga del file txt in un indice di array di stringhe diverso:

a=0
strPath = Server.Mappath("txt\pippo.txt")
Set objFileSy = Server.CreateObject("Scripting.FileSystemObject")
Set objApriFile = objFileSy.OpenTextFile(strPath, 1)

Do While objApriFile.AtEndOfStream <> True
a=a+1
stringa(a)=objApriFile.ReadLine
loop

objApriFile.close
Set objApriFile = Nothing
Set objFileSy = Nothing

ma mi dice: Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: 'stringa'

c'è qualche altro modo?

[optime]

dovrai dimensionarlo sto benedetto array, non credi?

[mdf137]

sì ma io non conosco quante righe ci sono nel file txt quindi non so quanto lungo deve essere l'array.

[optime]

fai una prima redim a zero, poi una redim preserve a ogni giro

[mdf137]

grazie sei un grande, ciao

[optime]

optime!