Opening a txt file

[flamer2010]

How do I put text from a notepad .txt file into a text box on my form?

I am using this code

Dim iFileNum
Dim txtInput
 
iFileNum = FreeFile
Open "C:\Test.txt" For Input As iFileNum
Print #iFileNum, txtInput
Close iFileNum
 
Text1.Text = txtInput

but it says that its a bad file mode. how do I fix this?

[crptcblade]

You can't use Print when the file is open for Input. Try opening it for Output or Append.

[DiGiTaIErRoR]

Try this:

open "file" for binary as #1
filecontents = input(lof(1),#1)
close #1
text1.text = filecontents

[chemicalNova]

Put this in a module


Function LoadFile(FileName As String)
Dim FileNumber As Long
DIm Data As String

FileNumber = FreeFile
If FileName = "" Then Exit Function
Open FileName For Binary Access Read As FileNumber
Data = String(FileLen(FileName), Chr(0))
Get FileNumber,,Data
Close FileNumber
LoadFile = Data
End Function


'Example Text1 = LoadFile("C:\test.txt")


Have Fun

«°°phReAk°°»

[flamer2010]

may I see some working code plzzz?

[crptcblade]

Dim iFileNum As Integer
Dim txtInput As String
 
iFileNum = FreeFile
Open "C:\Test.txt" For Input As #iFileNum
    txtInput = Input$(LOF(iFileNum),iFileNum)
Close #iFileNum
 
Text1.Text = txtInput