Keskustelu: Ohjelmointikysymykset: VB6: filelistbox -> textbox ongelma

Yritän avata filelistboxissa olevan txt tiedosto textboxiin. Heitää herjaa "Run-time error '75': Path/File access error".

Mikä tässä koodissa kusee? Olen yrittänyt jonkun aikaa tässä kikkailla.

Näyttää kiltisti txt tiedosto fileboxissa mutta kun valitsen ja painan open-buttonia niin herja tulee.

Private Sub File2_Click()
filu = File2.Path & "\" & File2.FileName
End Sub

Private Sub Form_Load()
  File2.Path = App.Path & "\log"
 End Sub

Private Sub open_Click()
Open filu For Binary As #1
Print #1, Text1.Text
Close #1
End Sub

Et ole tainnut määrittää filu:a ohjelman alussa muuttujaksi? Eli nyt se toimii vain ton yhden aliohjelman sisällä, kunnes siitä poistutaan.

Koodin alkuun: Dim filu as string

Ja koska Luemme tiedostoa, emmekä kirjoita niin Print:n tilalle kirjoita: Line input

tarkoitatko muotoon?

Line Input #1, Text1.Text

Ei onnistu tuolla.
Herjaa: Compile error:
Variable reguired - can't assing to this expression

Jooh, unohtui mainita seuraava: joudut vippaa tiedon eka muuttujaan, sen jälkeen vasta text1:een. eli:

Line Input #1, muuttujamme
Text1.text = muuttujamme

Okei, nyt alkoi jotenkin skulaan ;)
Ainoa vaan että se näyttää txt-tiedoston ensimmäisen rivin ainoastaan. Mistähän moinen?

Olethan pistänyt Text1:n Multilinen arvoksi 'True'?

Ja sitten toinen: Jos haluat lukea tiedostosta useampaakin riviä, sitten suosittelen tutustumaan seuraavaan:
https://www.ohjelmointiputka.net/koodivinkit/23513-vb6-tiedoston-lukeminen-kerralla

Kiitos nomic. Sain sen toimimaan =)

Laitetaas se nyt vielä tännekkin kokonaisuudessaan:

Dim ff As Integer
Dim filu As String


Private Sub File2_Click()
filu = File2.Path & "\" & File2.FileName
End Sub

Private Sub Form_Load()
  File2.Path = App.Path & "\log"
 End Sub

Private Sub open_Click()
ff = FreeFile
Open filu For Input As #ff
    Text1.Text = Input(LOF(ff), #ff)
Close #ff
End Sub