SMS, Preilisten, etc.

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -337,8 +337,9 @@ Public Class cDATENSERVER
 
     Public Function insertDataToDATENSERVER(srcPath, Optional bezeichnung = "", Optional endung = "", Optional allowMsg = True, Optional coll_archiv = False) As Boolean
         'Datei musss schon am Datenserver liegen, wird nciht mehr kopiert!!!!!
+        Try
 
-        If endung = "" Then Dim fi As New System.IO.DirectoryInfo(srcPath) : endung = fi.Extension
+            If endung = "" Then Dim fi As New System.IO.DirectoryInfo(srcPath) : endung = fi.Extension
         ' If bezeichnung = "" Then bezeichnung = System.IO.Path.GetFileName(srcPath) : endung = ""
         If bezeichnung = "" Then bezeichnung = da_name
         replaceInvalidCahr(bezeichnung)
@@ -351,6 +352,13 @@ Public Class cDATENSERVER
         If DATA_LIST.ADD_WOcopy(srcPath, bezeichnung, "", coll_archiv) Then
             Return True
         End If
+
+        Catch ex As Exception
+
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Pfad: " & srcPath & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+            Return False
+        End Try
+
         Return False
 
     End Function