i am not able know the error you have committed so i have posting the code which i use
Code:
Public Function ReadLineTextFile (strTextFile)
Dim fso, MyFile
Dim arrPairs, arrColumns, i
Set fso = CreateObject("Scripting.FileSystemObject")
' Open the file for reading only
Set MyFile = fso.OpenTextFile(strTextFile, 1)
' Read the input file
ReadLineTextFile = MyFile.ReadLine
' Load the Global DataSheet.
arrPairs = Split(ReadLineTextFile, "|")
' Note: This loop begins at Index 3 because Indices 0, 1, and 2
' (CurrentURL, CurrentBrowser, and CurrentPage) are already
' in the Global DataSheet)
For i = 3 To UBound(arrPairs) - 1
arrColumns = Split(arrPairs(i), ";")
DataTable.GlobalSheet.AddParameter arrColumns(0), ""
DataTable.Value(arrColumns(0), dtGlobalSheet) = arrColumns(1)
Next
End Function ' ReadLineTextFile (strTextFile)
In your test script, just identify the path and filename of the text file...
' Identify the name of the input file to use.
strTextFilePath = "C:\Test Data Files\"
strTextFile = strTextFilePath & "FileName.txt"
Then just call the function when you need to...
Call ReadLineTextFile (strTextFile)