txt dateien auslesen

[kalle87]

ich habe folgendes Problem ich habe ein programm geschrieben.
Wo man in einem textfeld die artikelnummer eingibt und dann das programm alle txtdateien durchläuft die ich in einem ordner habe,
dann soll er mir die restlichen Angaben in einer listbox zeigen.

Das hier ist mein Code:

Private Sub cmdsuchen_Click()
f = FreeFile
For i = 0 To filtxt.ListCount - 1

Open "C:\Test\" & filtxt.List(i + 1) For Input As f
Do Until EOF(f)
    Line Input #f, eingelesen
    zeichenlänge = Len(txteingabe.Text)
    If Mid(eingelesen, 2, zeichenlänge) = txteingabe.Text Then
    lstausgabe.AddItem Mid(eingelesen, 2 + zeichenlänge, Len(eingelesen))
End If

Loop
Close #f
Next i
End Sub

Private Sub Form_Load()
filtxt.Path = "C:\Test\"
End Sub

Public Function ZC(pfad)
  Dim FN As Integer
  Dim strFileText As String
  Dim lngFn&
  Dim astrData() As String
  Dim strTemp As String
vsfilename = pfad
FN = FreeFile()
Open vsfilename For Binary Access Read As #FN
strTemp = Space(LOF(FN))
Get #FN, , strTemp
Close #FN
strFileText = strTemp
astrData() = Split(strFileText, vbCrLf)
Anzahl = Format$(UBound(astrData) + 1, "#,##0")
ZC = Anzahl
End Function

Wenn ich die Artikelnummer eingebe zeigt er mir auch in der listbox die restlichen angaben an, aber dann kommt eine fehlermeldung:
Laufzeitfehler 76
"Pfad nicht gefunden"
kann mir vielleicht jemand helfen????

[ARCUS_L]

Hi !!

Hier kannst du dir nur selbst helfen !
Irgend eine Datei die du versuchst zu laden existiert nicht !!

Setz mal ein paar Haltepunkte und kontrollier den Pfad.


mfg ARCUS_L