Kleinigkeiten... glaub ich ....

Dokumentation/Classes/Class1.vb

@@ -845,4 +845,14 @@ Public Class Class1
         Next
     End Sub
 
+    Public Shared Function WriteToFile(filepath As String, texttowrite As String)
+        Try
+            Dim objWriter As New System.IO.StreamWriter(filepath)
+            objWriter.Write(texttowrite)
+            objWriter.Close()
+        Catch ex As Exception
+            MsgBox(filepath & vbCrLf & " konnte nicht geschrieben werden." & vbCrLf & ex.Message)
+        End Try
+    End Function
+
 End Class