• Home
 · 
• Miscellaneous
 · 
• Open TXT file

Open TXT file

Open TXT file

Rate Open TXT file

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

On Error GoTo Err_Not_Found 

Dim FileName, Temp, Total As String 
Dim FileNumber As Integer 
FileName = InputBox("Enter the path for a text file", _ 
    "Open", "C:\test.txt", 0, 0) 
If FileName = "" Then Exit Sub 
FileNumber = FreeFile 

Open FileName For Input As FileNumber 
    While Not EOF(FileNumber) 
        Line Input #FileNumber, Temp 
        Total = Total + Temp + Chr(10) + Chr(13) 
    Wend 
Close FileNumber 
Text1.Text = Total 
Exit Sub 
Err_Not_Found: 
MsgBox Err.Description & vbCrLf & Err.Number 
End Sub