Keskustelu: Ohjelmointikysymykset: [VB6] Tekstin tallennus ei onnistu

Miks mun ohjelma ei tallenna tota Polku2:sta? Kyllä se ennen tallenti. Se on tekstiä.

Private Sub Timer1_Timer()
Dim polku As String
Dim polku2 As String
polku2 = App.Path & "/Settings/FullName.file"
polku = App.Path & "/Motion.fileX"
If Label5.Caption = "Valid" Then
frmSplash.Show
Open polku2 For Output As #1
 Print #1, Text3.Text
Close #1
kirjoitafilu polku, Text1.Text
Unload Me
Else
MsgBox "Invalid key! Try again.", vbOKOnly
End If
Timer1.Enabled = False
Me.MousePointer = 0
End Sub

Private Function kirjoitafilu(tiedosto As String, data As String)

   Open tiedosto For Output As #2
        Print #2, data
   Close #2

End Function

Rivitiedoston lataus ei onnistu ("Input past end of file"):

Private Sub Form_Load()

Dim i As Integer, r As String
Open App.Path & "/Motion.fileX" For Input As #1
For i = 1 To 1
 Input #1, r
 jaa.Text = r
Next
Close #1
Timer2.Enabled = True

End Sub

Tarkista, että App.Path on kaikissa kohdissa sama. Tarkista myös, että ohjelma yleensä pääsee tallennusriville.

Toi toimi ennen mutta yhtäkkiä ei toimi enää.

Eikö noissa tiedoston nimissä ole noi viivat väärään suuntaan kallellaan?
"/" pitäisi kai olla "\".

Hannu kirjoitti:

Eikö noissa tiedoston nimissä ole noi viivat väärään suuntaan kallellaan?
"/" pitäisi kai olla "\".

Eikai sillä oo mitään väliä?

On sillä väliä, Windows käyttää kenomerkkejä, Unix-pohjaiset järjestelmät puolestaan kauttamerkkiä.

Hmmm...Mitä tässä nopeasti katselin tuota koodia niin:
Et ole edes ohjelmaa käskenyt missään vaiheessa tallentamaan polku2:sta tiedostoon:
käsket tallentamaan vain: text3.text ja kirjoitafilu-funktion data-muuttujan sisältämän tiedon.

Ja mitä tuohon 'Input past end of file' tulee, niin:
tarkista että tiedosto sisältää tietoa.