SaveFileDialog locatie en bestandsnaam aflezen

[berry14]

Heey,

Weet iemand of je van een SaveFIleDialog / OpenFileDialog de locatie en bestandsnaam van het gekozen bestand af kunt lezen? Ik wil het adres dan ipv BESTAND in laten vullen.

Dim File As System.IO.TextWriter = New System.IO.StreamWriter([COLOR="Red"]BESTAND[/COLOR], IO.FileMode.OpenOrCreate)

 

[Pizara]

        Dim dialog As New OpenFileDialog
        dialog.ShowDialog()

        Dim Bestand As String = dialog.FileName

 

[berry14]

Weet je ook hoe ik een regel uit een txt bestandje kan verwijderen? Heb op internet gezocht, maar daar wordt ik ook niet wijzer van...

Of een trucje om het te kopieeren en plakken enz,.

 

[Pizara]

Je kan m niet rechtstreeks een lijn uit de file laten wissen.

Snelste methode is inlezen in een Array
dan de betreffende lijn (index) removen van de Array
daarna weer terugschrijven van alle items in de Array.

        Dim ofd As New OpenFileDialog
        ofd.ShowDialog()

        Dim Bestand As String = ofd.FileName

        Dim Text As New ArrayList
        Dim count As Integer
        'lezen
        For Each line In File.ReadAllLines("c:\temp\mytext.txt")
            text.Add(line)
            count += 1
        Next
        'verwijderen
        text.RemoveAt(2)

        'schrijven
        Dim WriteFile As System.IO.TextWriter = New System.IO.StreamWriter(Bestand, False)
        For Each Line As String In Text
            WriteFile.WriteLine(Line)
        Next

        WriteFile.Dispose()
        WriteFile.Close()

 

[berry14]

Je kan m niet rechtstreeks een lijn uit de file laten wissen.

Snelste methode is inlezen in een Array
dan de betreffende lijn (index) removen van de Array
daarna weer terugschrijven van alle items in de Array.

        Dim ofd As New OpenFileDialog
        ofd.ShowDialog()

        Dim Bestand As String = ofd.FileName

        Dim Text As New ArrayList
        Dim count As Integer
        'lezen
        For Each line In File.ReadAllLines("c:\temp\mytext.txt")
            text.Add(line)
            count += 1
        Next
        'verwijderen
        text.RemoveAt(2)

        'schrijven
        Dim WriteFile As System.IO.TextWriter = New System.IO.StreamWriter(Bestand, False)
        For Each Line As String In Text
            WriteFile.WriteLine(Line)
        Next

        WriteFile.Dispose()
        WriteFile.Close()

Hardstikke bedankt!:thumb: