It is possible to access Text (x.txt) files? Explain.

Interview Candidate
Aug 2nd, 2005
1
1393

First
Prev
Next
Last

Showing Answers 1 - 1 of 1 Answers

Ramasamy

Aug 2nd, 2005

Dim fso, hfile, msgvalue
Set fso = CreateObject("Scripting.FileSystemObject")
Set hfile = fso.OpenTextFile("D:x.txt")
If Not hfile.AtEndOfStream Then
Do While Not hfile.AtEndOfStream
msgvalue = hfile.ReadLine
If InStr(1, msgvalue, "UID") Then
local_UID = Mid(msgvalue, 5)
ElseIf InStr(1, msgvalue, "PWD") Then
local_PWD = Mid(msgvalue, 5)
End If
Loop
End If