Salve a tutti chiedo una cortesia come posso contare le righe in un file csv.
codice:
Dim strLinea, FileObject, Instream, strFile, intTipo

strFile = Server.MapPath(file)
'################ lettura ####################################
intTipo = 1
'################ lettura #################################### 
'################ creo l'oggetto #############################
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
'################ creo l'oggetto #############################
'################ apro il file ###############################
Set InStream = FileObject.OpenTextFile(strFile, intTipo, true)
'################ apro il file ###############################
'################ ciclo che legge tutte le linee #############
Do While not InStream.AtEndOfStream
'################ ciclo che legge tutte le linee #############
'################ leggo le linee #############################
StrLinea = InStream.ReadLine()
ValoriArray = Split (StrLinea,";") 

var_codice = ValoriArray(0)
var_sigla = ValoriArray(1)
var_importo = ValoriArray(2)
response.write var_codice &"
"

Loop

' libero risorse
InStream.Close
Set InStream = Nothing
Set FileObject = Nothing
Con gratitudine buona serata