Visual Basic

<br />
Public Function ReadTextFile(sFileName As String) As String<br />
   Dim iFileNum As Integer<br />
   Dim bFileOpen As Boolean<br />
<br />
   ' Activate error trapping.<br />
   On Error GoTo Catch<br />
<br />
   ' Read text file.<br />
   ReadTextFile = ""<br />
   iFileNum = FreeFile<br />
   Open sFileName For Input Access Read As #iFileNum<br />
   bFileOpen = True<br />
   ReadTextFile = Input(LOF(iFileNum), iFileNum)<br />
   Close #iFileNum<br />
   bFileOpen = False<br />
   Exit Function<br />
<br />
Catch:<br />
   ' An error occurred. This will happen if file was not found.<br />
   If bFileOpen Then Close #iFileNum<br />
End Function<br />
<br />
<br />
Public Sub Test()<br />
   Dim sText As String<br />
<br />
   sText = ReadTextFile("c:\MyPath\MyFile.txt")<br />
End Sub<br />

Redlightpacket wrote:

Can you use all of the VB 6 code in Visual Basic 2005.

My: Blog | Photos

"Man who stand on hill with mouth open will wait long time for roast duck to drop in." -- Confucious

Pumk1nh3ad wrote:

They will only tell you your password.