If My.Computer.FileSystem.FileExists aus Textdatei auslesen

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Unwesen.

    If My.Computer.FileSystem.FileExists aus Textdatei auslesen

    Hallo,

    ich habe in einem Programm folgenden Code

    VB.NET-Quellcode

    1. If My.Computer.FileSystem.FileExists("c:\Program Files\example.txt") Then ListBox2.Items.Add("example.txt")
    2. FolderBrowserDialog.SelectedPath = ("C:/")

    jetzt habe ich zwei Probleme
    1. Wie kann ich den Dateinamen (mehrere Dateien) aus einer Textdatei auslesen, und wie mach ich es dann bei Then ListBox2.Items.Add (example.txt). Denn es ist ja nicht example.txt sondern einer der Dateinamen aus der Textdatei.

    Danke im voraus für die Antwort.
    alecsoft

    Eine Beschreibung, wie der Dateiinhalt aussieht wäre vllt. nützlich.
    Diese Anweisung liest den Dateiinhalt Zeilenweise in die Listbox:

    VB.NET-Quellcode

    1. ListBox2.Items.AddRange(IO.File.ReadAllLines(Pfad zur Datei))


    Wenn ich mir aber dein "Über mich" in deinem Profil ansehe, kommen mir zweifel ob du danach gefragt hast, denn das dürfte dir nicht neu sein. :whistling:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Unwesen“ ()

    @unwesen ich will nicht einfach die Datei auslesen und in die Listbox laden. Sondern die Textdatei auslesen, überprüfen ob eine Datei existiert desen Namen in der Textdatei ist, und dann erst wenn die Datei existiert sie in die Listbox tun.

    Ja. Die Dateinamen stehen dann doch in der Listbox. Also einem Array. Sofern die Dateinamen in der Quelle Zeilenweise stehen, wovon ich ausgehe, wenn du nicht den Aufbau des Dateiinhaltes beschreibst, kannst du doch nun prüfen, ob das Feld des Arrays, als Dateiname benutzt, existiert.

    Probier das:

    VB.NET-Quellcode

    1. Dim loDateiInhalt As New List(Of String)
    2. loDateiInhalt.AddRange(IO.File.ReadAllLines(IO.Path.Combine(Application.StartupPath, "Dateiname.txt")))
    3. For Each Dateiname As String In loDateiInhalt
    4. If IO.File.Exists(Dateiname) Then
    5. 'Pfad wie in Datei
    6. ListBox1.Items.Add(Dateiname)
    7. 'oder
    8. ListBox1.Items.Add(IO.Path.GetFileName(Dateiname))
    9. 'oder
    10. ListBox1.Items.Add(IO.Path.GetFileNameWithoutExtension(Dateiname))
    11. Else
    12. End If
    13. Next

Facebook
Telefonspende