Ein Ausnahmefehler des Typs "System.IO.IOException" ist in mscorlib.dll _
  aufgetreten.
 
Zusätzliche Informationen: Der Prozess kann nicht auf die Datei _
  "C:\[...]\data00.csv" zugreifen, da sie von einem anderen Prozess verwendet _
  wird.

Option Explicit On
Imports System.IO
Public Class viewer
    Private FileName As String = "data00.csv"
    Private DirectoryName As String = Environ$("appdata") + "\[...]\"
 
    Private Sub viewer_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
        readList()
        Timer1.Start()
    End Sub
    Sub readList()
        If File.Exists(DirectoryName + FileName) Then
            dgvScores.Rows.Clear()
            Dim sr As New StreamReader(DirectoryName + FileName)
            Dim line As String()
            While sr.Peek() <> -1
                line = sr.ReadLine.Split(";")
                dgvScores.Rows.Add(line(0) + " ms", line(1), line(2))
            End While
        End If
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles _
      Timer1.Tick
        readList()
    End Sub
End Class

Option Explicit On
Imports System.IO
    Private FileName As String = "data00.csv"
    Private DirectoryName As String = Environ$("appdata") + "\[...]\"
 
    Private Function writeList()
        Dim fileline As String = "bla" + ";" + Str(Now.Year) + "-" + Str( _
          Now.Month) + "-" + Str(Now.Day) + " " + Str(Now.Hour) + ":" + Str( _
          Now.Minute) + ";" + Name + ";" + vbCrLf
 
        If Not Directory.Exists(DirectoryName) Then
            ' Nein! Jetzt erstellen...
            Directory.CreateDirectory(DirectoryName)
        End If
        Dim Old As String = ""
        If File.Exists(DirectoryName + FileName) Then
            Old = File.ReadAllText(DirectoryName + FileName)
            File.Delete(DirectoryName + FileName)
        End If
 
        File.WriteAllText(DirectoryName + FileName, Old & fileline, _
          System.Text.Encoding.UTF8)
 
        Return True
    End Function

Visual Basic FTW!!

Beitrag wurde zuletzt am 16.12.13 um 17:37:40 editiert.