question...noobie question for professionals..

[VBSamster]

I opened a file using common dialog box..

Open " filespec.txt" for Input as #1


BLAH BLAH BLAH

Close #1

I closed the farcking file....why do i get runtime error # 55

What the farck is run time error number 55
Does that mean that the file has not been closed properly?

thanks!
Samster

[Nightwalker83]

Dim text As String
 
Private Sub Command1_Click()
Open App.Path & "\filespec.txt" For Input As #1
Do Until EOF(1)
Input #1, text
Text1.text = Text1.text & text
Loop
Close #1
End Sub

[pnish]

Error 55 means 'The file is already open'.

[gaffa]

Instead of using #1, use the FreeFile method instead

Dim lintFileNum as Integer
 
lintFileNum = FreeFile
Open App.Path & "\filespec.txt" For Input As #lintFileNum
Do Until EOF(1)
Input #lintFileNum, text
Text1.text = Text1.text & text
Loop
Close #lintFileNum

- gaffa