Jasinski Technical Wiki

Navigation

Home Page
Index
All Pages

Quick Search
»
Advanced Search »

Contributor Links

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

Other Wiki Sections

Software

PoweredBy

Read Entire File Contents - VB6

RSS
Modified on Mon, Feb 13, 2012, 2:21 PM by Administrator Categorized as Visual Basic 6
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

ScrewTurn Wiki version 3.0.1.400. Some of the icons created by FamFamFam. Except where noted, all contents Copyright © 1999-2018, Patrick Jasinski.