NET -> Basic Help

[Hav0kDemned]

In VB6 what would be the equivlant functions for these?

Dim tmp As New StringBuilder
Dim f = FreeFile()
FileOpen(f, strPath, OpenMode.Binary, OpenAccess.Read)

Dim StrLoc As String = InputString(f, LOF(f))

[Phil Weber]

Dim f As Integer
Dim strLoc As String

f = FreeFile
Open strPath For Input As f
strLoc = Input(LOF(f), f)
Close f

[Hav0kDemned]

Dim f As Integer
Dim strLoc As String

f = FreeFile
Open strPath For Input As f
strLoc = Input(LOF(f), f)
Close f

Run-time error '62'

Input past end of file

[Phil Weber]

Hmm, that doesn't make sense. LOF = length of file. You're saying, "Read length-of-file bytes from file handle f into variable strLoc." How can it read past the end of the file if you ask for length-of-file bytes?

Try changing:

Open strPath For Input As f

to:

Open strPath For Binary As f

and see if that makes a difference.

[Hack]

There has to be something else going on here. This work just fine for me.

Private Sub Command1_Click()
Dim f As Integer
Dim strLoc As String
Dim strPath As String

strPath = "d:\devtest.txt"

f = FreeFile
Open strPath For Input As f
strLoc = Input(LOF(f), f)
Close f
End Sub

[gibra]

Phil is right.

FileOpen(f, strPath, OpenMode.Binary, OpenAccess.Read)

in VB 6.0 mean

Open strPath For Binary As f

HTH