TryCatch

2023-01-12 09:30:06 +01:00
parent d694d26d19
commit 3089153dec
1 changed files with 5 additions and 1 deletions
--- a/Main.vb
+++ b/Main.vb
@@ -311,8 +311,12 @@ Public Class TSUserReporter
            Text = "PRINTER:" & Standarddrucker.Druckername & vbCrLf
            Text &= "BON:" & Bondrucker.Druckername
        End If
+        Try
+            System.IO.File.WriteAllText(PrintINI, Text)
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try

-        My.Computer.FileSystem.WriteAllText(PrintINI, Text, False)

    End Sub