Public Shared Function SaveTextToFileWriteLine(ByVal strData As String, ByVal strPfad As String) As Boolean
 Dim bAns As Boolean = False
 Try
  If File.Exists(strPfad) Then
   Using sw As StreamWriter = File.AppendText(strPfad)
    sw.WriteLine(strData)
    sw.WriteLine(DateTime.Now)
    sw.Close()
   End Using
  End If
  bAns = True
 Catch Ex As Exception
  'Stop 'ErrInfo = Ex.Message
 End Try
Return bAns
End Function


Dieser Beitrag wurde vor am Dienstag, 12. Dezember 2006 um 10:28 Uhr veröffentlicht und unter Tipps gespeichert. Sie können Kommentare zu diesem Eintrag über den RSS-2.0-Feed verfolgen. Sie können einen Kommentar hinterlassen oder einen Trackback von Ihrer Website hierher setzen.