System.IO, Zugferd, Dakosy-Import Firma gesetzt durch Division1

MailSender/MAILSender.vb

@@ -179,7 +179,7 @@ Module Mail
                         System.Console.WriteLine("Starte Wölfl-Mail...")
                         If SendEmail_WOELFL() Then
                             Try
-                                Dim outFile As IO.StreamWriter = Nothing
+                                Dim outFile As System.IO.StreamWriter = Nothing
                                 outFile = My.Computer.FileSystem.OpenTextFileWriter(last_sent, False)
                                 outFile.Write(Now.AddDays(-1).ToShortDateString)
                                 outFile.Close()
@@ -1347,7 +1347,7 @@ Module Mail
 
 
             Dim fn As String = sPath & "WOELFL.csv" '" & Now.ToString("ddMMyyyyHHmmss") & ".csv"
-            Dim outFile As IO.StreamWriter = Nothing
+            Dim outFile As System.IO.StreamWriter = Nothing
             Try
                 outFile = My.Computer.FileSystem.OpenTextFileWriter(fn, False)
             Catch ex As Exception
@@ -1438,7 +1438,7 @@ Module Mail
             With exclApp
                 .Visible = False
                 Dim filepath = sPath & "QS_Auswertung.xlsx"
-                While IO.File.Exists(filepath)
+                While System.IO.File.Exists(filepath)
                     filepath = sPath & "QS_Auswertung_" & Now.ToString("ddMMyyy_HHmmss_fff") & ".xlsx"
                 End While
                 Try