Input oltre la fine del file

[[trodat]]

Ciao.

Ho questo codice:

Contatore = 1
Data_Creazione = Day(Date()) & " / " & Month(Date()) & " / " & Year(Date())

Locazione = "count/contatore.txt"

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

If FSO.FileExists(Server.MapPath(Locazione)) Then

Set Leggi = FSO.OpenTextFile(Server.MapPath(Locazione))
Contatore = CInt(Leggi.ReadLine) +1
Data_Creazione = Leggi.ReadLine
Leggi.Close
Set Leggi = Nothing

End if

Set Aggiorna = FSO.CreateTextFile(Server.MapPath(Locazione))
Aggiorna.WriteLine(Contatore)
Aggiorna.WriteLine(Data_Creazione)

Aggiorna.Close
Set Aggiorna = Nothing
Set FSO = Nothing

Perchè restituisce:

Error Type:
Microsoft VBScript runtime (0x800A003E)
Input oltre la fine del file.

su questa riga:

Data_Creazione = Leggi.ReadLine

[Roby_72]

Prova con:

Set Leggi = FSO.OpenTextFile(Server.MapPath(Locazione),1)

Roby

[Santino83_02]

Perchè starà alla fine... testa la proprieta booleana AtEndOfStream

[OcchioCrepato]

Ogni volta che fai una ReadLine il "puntatore" al file si sposta alla linea successiva. Magari nel file hai una sola riga e quindi la seconda istruzione di ReadLine va in errore.

ciao

[[trodat]]

Originariamente inviato da Roby_72
Prova con:

Set Leggi = FSO.OpenTextFile(Server.MapPath(Locazione),1)

Roby

Grazie Roby !!!!

[Santino83_02]

Originariamente inviato da [trodat]
Grazie Roby !!!!

ma va?? eppure la microsoft dice che è opzionale quel parametro