neu

Aviso/cProgramFunctions.vb

@@ -6,7 +6,10 @@ Public Class cProgramFunctions
     Shared Function updateUpdater() As Boolean
         Try
             Dim aktVersion = My.Resources.UpdaterVersion ' Aktuelle Updater Version
-            Dim F = "F:\Programme\AVISO_install\"
+            Dim F = "F:\Programme\AVISO_INSTALL"
+            If Not IO.Directory.Exists(F) Then
+                F = "\\share01\Programme\AVISO_INSTALL"
+            End If
 
             Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                 Case "IMEX"