Problemer sletter alt min tekst :o(

Ret denne:

objStreamWriter = New IO.StreamWriter("D:\test.txt")

- til dette:

objStreamWriter = New IO.StreamWriter("D:\test.txt", true)

- så burde den append'e i stedet for at overskrive.

Det virker fint tak. Men er det muligt at gøre sådan at hvis den er skrivebeskyttet den fil den vil skrive i så melder den ikke fejl...

Fordi hvis jeg prøve at få mit program til at skrive i en fil som er skrivebeskytte får jeg en fejl...
Så jeg ville hellere have at der så ikke sket nogen hvis den forsøger at skrive i filen og den ikke kunne. Så jeg ikke fik en fejl.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objStreamWriter As IO.StreamWriter

        'Pass the file path and the file name to the StreamWriter constructor.
        objStreamWriter = New IO.StreamWriter("D:\test.txt", True)

        'Write a line of text.
        objStreamWriter.WriteLine("Hello World")

        'Write a second line of text.
        objStreamWriter.WriteLine("From the StreamWriter class")

        'Close the file.
        objStreamWriter.Close()

    End Sub
End Class

Det afhænger lidt af hvorfor at den er skrivebeskyttet ... hvis det f.eks. er fordi at der er et andet program som er i gang med at bruge filen, så er det ikke muligt.

Kiggede lige på dit forrige spørgsmål. Er det noget i denne stil du er ude efter?

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim objStreamWriter As IO.StreamWriter

            'Pass the file path and the file name to the StreamWriter constructor.
            objStreamWriter = New IO.StreamWriter("D:\test.txt", True)

            'Write a line of text.
            objStreamWriter.WriteLine("Hello World")

            'Write a second line of text.
            objStreamWriter.WriteLine("From the StreamWriter class")

            'Close the file.
            objStreamWriter.Close()
        Catch ex As IO.IOException
            MessageBox.Show("Kunne ikke skrive til filen.")
        End Try
    End Sub

oki.. Hvis jeg nu for eksempel skulle skrive noget i hosts file den kan jo blive låst af nogen programmer.. Hvis den er lås af et program som for eksempel Spybot - Search & Destroy Kan man så bare gøre at den ikke skal sige noget hvis den ikke kan?

Du kan bere udelade kodelinjen:

MessageBox.Show("Kunne ikke skrive til filen.")

oki med jeg prøvet den kode du gav mig jeg får denne fejl

objStreamWriter = New IO.StreamWriter("C:\WINDOWS\system32\drivers\etc\hosts", True)

Adgang til stien 'C:\WINDOWS\system32\drivers\etc\hosts' blev nægtet.

Hvad skal jeg gøre?

så den melder fejl... Det hjælp ikke den der kode.

Kommer der ikke en exception?

Jeg får sådan en fejl her:

http://www.online-net.dk/fejl.JPG

Som man kan se er det en UnauthorizedAccessException som kastes. Prøv derfor med denne her kode i stedet:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim objStreamWriter As IO.StreamWriter

            'Pass the file path and the file name to the StreamWriter constructor.
            objStreamWriter = New IO.StreamWriter("C:\WINDOWS\system32\drivers\etc\hosts", True)

            'Write a line of text.
            objStreamWriter.WriteLine("Hello World")

            'Write a second line of text.
            objStreamWriter.WriteLine("From the StreamWriter class")

            'Close the file.
            objStreamWriter.Close()
        Catch ex As UnauthorizedAccessException
            ' MessageBox.Show("Kunne ikke skrive til filen.")
        End Try
    End Sub

Mange, Mange Tak for hjælpen nielle.  ;o)

Svar :^)

... med mindre at der var andet?

Der var ikke andet men jeg må bare lave en ny tråd hvis jeg skal sprøge om nogen nyt ingen. ;o)

Takker for point :^)