Ricavare numero pagine di un rtf

[Harding]

Ho vari documenti rtf sul server di cui dovrei ricavare il numero delle pagine.
Ho pensato di utilizzare le funzioni che manipolano i file di testo in particolare ReadLine.
L'idea era di ottenere un numero (il totale delle righe presenti nel rtf) e di dividerlo per il numero massimo di righe nel documento-modello (38). Da qui le pagine.

Ma non funziona mi dà sempre 17!

Dim fso, f, conta
  conta = 0
  Set fso =   Server.CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile(fpath, 1)
  Do While Not f.AtEndofStream
  f.ReadLine
  conta = conta + 1
  Loop
  Response.Write(conta)
  Set f = nothing
  Set fso = nothing

  'stampo risultati
  Response.Write(fname&"
")
  Response.Write("Il numero netto delle pagine è: ")
  netto = Cint(conta/38)
  Response.Write(netto&"
")

Suggerimenti?

[Harding]

Ho capito.
La funzione legge le righe ASCII non il testo inserito.
Per questo dà sempre 17.

Devo trovare un'altra soluzione.
:master: