eVB: Dateien zum lesen/schreiben öffnen....

HILFE!!!

Bitte helft mir mal kurz:

Ich habe probleme mit dem öffnen von (text)dateien mit evb. ich habe bis anhin nur in vb5+6 geproggt und komme mit den file-ctrl's nicht mehr mit...

Die situation ist so:

ich habe die Textdatei inhalt1.lst und inhalt2.lst im ordner "\my documents\myprog\*.lst" nun möchte ich die zum lesen öffnen, später dann zum schreiben.

ich habe das wiefolgt probiert:

Code:

---

'Ich habe folgendes in Form1:
'Command1  >> CommandButton
'File1      >> File-Controll vom FilSystem-Komponent
'File2      >>  "    "      "    "        "
'List1      >> List-Objekt
'List2      >>  "    "

Option Explicit
Dim varPath As String 'Ich definiere eine Variable, der ich später den Pfad "\My Documents\My Prog\" zuweisen werde.

Private Sub Command1_Click()
File1.Open varPath & inhalt1.lst, fsModeInput, fsAccessRead    'ich öffne file1
    Do While Not File1.EOF                                      'lasse jede linie bis eof (end of file) lesen
        List1.AddItem File1.LineInputString                    'schreibe jede linie in die list1 mit additem
    Next                                                        'ich wiederhole das ganze
File1.Close                                                    'ich schliesse file1

File2.Open varPath & inhalt2.lst, fsModeInput, fsAccessRead    'und nun das selbe wie oben mit file2 und list2
    Do While Not File1.EOF
        List2.AddItem File2.LineInputString
    Next
File2.Close

End Sub

Private Sub Form_Load()                    'Wenn form1 ladet....
    varPath = "\My Documents\My Prog\"      '...definiere ich die variable varProg mit dem Hauptpfad.
End Sub

Private Sub Form_OKClick()
    App.End
End Sub

---

nur bekomme ich nie einen inhalt zu sehen.... im test sollte bei mir list 1 wievolgt aussehen:

• a1
  a2
  a3
  a4
  a5

und list2:

• b1
  b2
  b3
  b4
  b5

Ich bin auf jedenfall für jegliche hilfe sehr dankbar....

mfg Christian

kenn mich mit evb nicht so aus, aber müssen pfade nicht mit "\\my documents\\file.ext" definiert werden? sonst meint er doch \ würde den beginn eines escape-codes angeben, wie \n.

Hi

Nimm diesen Code, der funktioniert:

Code:

---

Option Explicit
Dim varPath As String 'Ich definiere eine Variable, der ich später den Pfad "\My Documents\My Prog\" zuweisen werde.

Private Sub Command1_Click()
File1.Open varPath & "inhalt1.lst", fsModeInput, fsAccessRead    'ich öffne file1
    Do While Not File1.EOF                                      'lasse jede linie bis eof (end of file) lesen
        List1.AddItem File1.LineInputString                    'schreibe jede linie in die list1 mit additem
    Loop                                                        'ich wiederhole das ganze
File1.Close                                                    'ich schliesse file1

File1.Open varPath & "inhalt2.lst", fsModeInput, fsAccessRead    'und nun das selbe wie oben mit file2 und list2
    Do While Not File1.EOF
        List2.AddItem File1.LineInputString
    Loop
File1.Close

End Sub

Private Sub Form_Load()                    'Wenn form1 ladet....
    varPath = "\My Documents\My Prog\"      '...definiere ich die variable varProg mit dem Hauptpfad.
End Sub

Private Sub Form_OKClick()
    App.End
End Sub

---

Fehler waren:

:arrow: inhalt1.lst und inhalt2.lst müssen in "" gesetzt werden
:arrow: Nach do kein next verwenden sondern loop
:arrow: Ein File-Control genügt, du kannst beide Dateien mit dem gleichen Controll nacheinander öffnen!

Gruess

Sven

Herzlichen Dank. Ich werds grad ausprobieren.