Navigation

	Home Page
	Index
	All Pages

Contributor Links

	Create a new Page
	Administration
	File Management
	Login/Logout
	Your Profile

Other Wiki Sections

Software

Read Entire File Contents - VB6

Dim fileName As String
Dim fileNum As Long
Dim fileSize As Long

fileName = App.Path
If Right$(fileName, 1) <> "\" Then
    fileName = fileName & "\"
End If
fileName = fileName & App.EXEName
fileName = fileName & ".dll.config"

fileSize = FileLen(fileName)
strConnect = String(fileSize, " ")
fileNum = FreeFile()
Open fileName For Binary Access Read As #fileNum
Get #fileNum, 1, strConnect
Close #fileNum