StreamWriter nervt

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von dussl.

    StreamWriter nervt

    Hallo,
    ich habe das Problem das wenn der StreamWriter was schreiben soll wird er einfach übersprungen und es kommt zu Fehlern. Könnte es sein das ich was an dem Writer falsch gemacht hab?

    VB.NET-Quellcode

    1. Dim background As IO.StreamWriter = New IO.StreamWriter("C:\abc\def\background.txt") 'Sagt dem Writer wo die Datei liegt
    2. background.WriteLine("xyz") 'Schreibt es in die Datei rein
    3. background.Close() 'Schließt den Writer

    Nagut der ist nur etwas lang. Zudem hab ich die Pfade und Internet Adressen durch abcdef ersetzt. Es soll ein Newsupdater sein, also ein Programm das z.B. News aus einem Textdokument welches sich auf einem FTP Server befindet runterlädt und anzeigt. Fragt aber nicht allzuviel dazu, das ist für meine HP ^^

    VB.NET-Quellcode

    1. ToolStripStatusLabel2.Text = "Laden"
    2. ToolStripProgressBar1.Style = ProgressBarStyle.Marquee
    4. Try
    5. If My.Computer.FileSystem.DirectoryExists("C:\abc\def") = False Then
    6. My.Computer.FileSystem.CreateDirectory("C:\abc\def")
    7. End If
    9. If My.Computer.FileSystem.FileExists("C:\abc\def\portnumber.txt") = False Then
    10. IO.File.CreateText("C:\abc\def\portnumber.txt")
    11. End If
    13. If My.Computer.FileSystem.FileExists("C:\abc\def\note.txt") = False Then
    14. IO.File.CreateText("C:\abc\def\note.txt")
    15. End If
    17. If My.Computer.FileSystem.FileExists("C:\abc\def\background.txt") = False Then
    18. IO.File.CreateText("C:\abc\def\background.txt")
    20. Dim background As IO.StreamWriter = New IO.StreamWriter("C:\abc\def\background.txt")
    21. background.WriteLine("Black")
    22. background.Close()
    24. Else
    26. Dim backgroundload As New IO.StreamReader("C:\abc\def\background.txt")
    27. BackColor = Color.FromName(backgroundload.ReadLine)
    28. Form3.Label2.Text = backgroundload.ReadLine
    29. backgroundload.Close()
    32. End If
    34. Catch ex As Exception
    35. ToolStripStatusLabel2.Text = "Fehler"
    36. ToolStripProgressBar1.Style = ProgressBarStyle.Blocks
    37. MsgBox("Es ist ein kritischer Fehler aufgetreten, im Block Form1_Load!", MsgBoxStyle.Critical, "Fehler")
    38. End Try
    40. If My.Computer.FileSystem.FileExists("C:\abc\def\importantmessage.txt") Then
    41. My.Computer.FileSystem.DeleteFile("C:\abc\def\importantmessage.txt")
    42. End If
    44. If My.Computer.FileSystem.FileExists("C:\abc\def\message.txt") Then
    45. My.Computer.FileSystem.DeleteFile("C:\abc\def\message.txt")
    46. End If
    48. If My.Computer.FileSystem.FileExists("C:\abc\def\version.txt") Then
    49. My.Computer.FileSystem.DeleteFile("C:\abc\def\version.txt")
    50. End If
    52. My.Computer.Network.DownloadFile("www.abc.de/message.txt", "C:\abc\def\message.txt")
    54. Dim message As New IO.StreamReader("C:\abc\def\message.txt")
    55. RichTextBox2.Text = message.ReadToEnd
    56. message.Close()
    58. My.Computer.Network.DownloadFile("www.abc.de/importantmessage.txt", "C:\abc\def\importantmessage.txt")
    60. Dim importantmessage As New IO.StreamReader("C:\abc\def\importantmessage.txt")
    61. RichTextBox1.Text = importantmessage.ReadToEnd
    62. importantmessage.Close()
    64. My.Computer.Network.DownloadFile("www.abc.de/version.txt", "C:\abc\def\version.txt")
    66. Dim version As New IO.StreamReader("C:\abc\def\version.txt")
    67. If Label4.Text = version.ReadToEnd = False Then
    68. LinkLabel1.Visible = True
    70. Else
    72. LinkLabel1.Visible = False
    73. End If
    74. version.Close()
    76. Dim note As New IO.StreamReader("C:\abc\def\note.txt")
    77. RichTextBox3.Text = note.ReadToEnd
    78. note.Close()
    80. Dim portnumber As New IO.StreamReader("C:\abc\def\portnumber.txt")
    81. TextBox1.Text = portnumber.ReadToEnd
    82. portnumber.Close()
    84. ToolStripStatusLabel2.Text = "Fertig"
    85. ToolStripProgressBar1.Style = ProgressBarStyle.Blocks
    86. Label1.Text = "Aktualisiert um: " & Now.ToShortTimeString
    88. End Sub

    Das ist ja das Problem, ich krieg keine Fehlermeldung, er sagt nur in der Kompilerlog was und das wars. Sonst kommt nichts, auch wenn ich den Try Block Auskommentier kommt keine Fehlermeldung, er überspringt die Stelle einfach und lädt das Programm nicht richtig.

    hast du den code zufällig in der form_load? wenn ja, da gibt's scheinbar bei allen probleme mit den exception-aufrufen.

    lass den code mal schritt für schritt im debugger durchlaufen und dann guck mal welche zeile das ist.

    PS: bei exceptions kannst du die offiziele fehlermeldung benutzen und musst dir nicht unbedingt den ganzen text hinschreiben

    VB.NET-Quellcode

    1. Try
    3. Catch ex As Exception
    4. MessageBox.Show(ex.Message)
    5. End Try

    Cool danke :) Problem gefunden, ich weiss nur noch nicht wie ich ihn lösen soll. Er kann nichts schreiben weil die Datei grade von einem anderen Prozess verwendet wird. Anscheind ist der erstell Prozess im weg.

    EDIT! Ich hab jetzt die Rheinfolge geändert sodass die Datei als erstes erstellt wird und als letztes beschrieben aber es geht nicht, sie wird immernoch von einem anderen Prozess verwendet. Weiss jemand wie ich das beheben kann?

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

Facebook
Telefonspende