• Home
 · 
• Windows System Services
 · 
• Open a file and load its text. Very simple and short code. I always use this code for my applicatio

Open a file and load its text. Very simple and short code. I always use this code for my applicatio

Open a file and load its text. Very simple and short code. I always use this code for my applications.

Rate Open a file and load its text. Very simple and short code. I always use this code for my applicatio

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' By Choosing Corp. [http://www.choosingcorp.net]
' E-Mail: [email protected]
On Error GoTo msgError
Dim RowLine As Integer, RowValue As String, NewLine As String
NewLine = Chr$(13) & Chr$(10)
RowLine = 0
OpenFile = Empty
If Dir(flFileName, vbNormal) = "" Then
MsgBox msgMessageError, msgStyleError, msgTitleError
Exit Function
End If
Open flFileName For Input As #FileNumber
For RowLine = 0 To LOF(FileNumber)
Line Input #FileNumber, RowValue
If EOF(FileNumber) Then
OpenFile = OpenFile & RowValue
Exit For
Exit Function
End If
OpenFile = OpenFile & RowValue & NewLine
Next RowLine
Close #FileNumber
Exit Function
msgError:
MsgBox "Si è verificato un errore durante l'apertura del file """ & flFileName & """.", vbExclamation + vbOKOnly, "Errore"
End Function