...
  Dim peter As New List(Of String)
  Dim hans As New List(Of String)
  Dim fritz As New List(Of String)
 
If IO.File.Exists("C:\Users\" & System.Environment.UserName & _
  "\Documents\peter.txt") = False Then
 
            IO.File.CreateText("C:\Users\" & System.Environment.UserName & _
              "\Documents\peter.txt")
            IO.File.CreateText("C:\Users\" & System.Environment.UserName & _
            "\Documents\hans.txt")
            IO.File.CreateText("C:\Users\" & System.Environment.UserName & _
            "\Documents\fritz.txt")
 
        Else
 
End If
 
 
hans.AddRange(IO.File.ReadAllLines("C:\Users\" & System.Environment.UserName & _
  "\Documents_\hans.txt"))
 
        fritz.AddRange(IO.File.ReadAllLines("C:\Users\" & _
          System.Environment.UserName & "\Documents_\fritz.txt"))

Sprache: VB.NET
Entwicklungsumgebung: Visual Basic 2008 Express Edition
Betriebsystem: Windows Vista Home Premium

Beitrag wurde zuletzt am 08.03.09 um 17:15:47 editiert.