VBScript to reads number of lines in a text file

'********************************************************************
' VBScript that reads number of lines in a text file
'
'********************************************************************
' Program by:
' Created:
' Updated: N/A
'********************************************************************

' Variable declaration
'
Option explicit
Const cRead=1, cWrite=2, cAppend=8
Dim FSO, Source
set FSO=CreateObject("Scripting.FileSystemObject")
Dim fileInput, fileOutput
Dim sTempPath, sTempName
Dim sLine, i
Source = “C:\Deepak.txt”

'********************************************************************
' Main
'********************************************************************
Set fileInput=FSO.OpenTextFile(Source, cRead)
sTempPath=FSO.GetFile(Source).ParentFolder.Path
sTempName=FSO.GetTempName
Set fileOutput=FSO.GetFolder(sTempPath).CreateTextFile(sTempName)

i=0
Do While not(fileInput.AtEndOfStream)
i=i+1
sLine=fileInput.ReadLine
' Process the read line here...
fileOutput.WriteLine(sLine)
Loop
MsgBox "" &sLine
fileInput.Close
fileOutput.Close