Updater, Login mit Standort.txt

AVISOUPDATER/UPDATERfrm.vb

@@ -35,6 +35,10 @@ Public Class UPDATERfrm
             CopyIncremental = False
         End If
 
+        If System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\f\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\install\Programme\AVISO\" Then
+            MsgBox("Programm kann nicht im Quellpfad " & System.AppDomain.CurrentDomain.BaseDirectory & " geupdated werden!" & vbNewLine & "Vorgang wird abgebrochen!", MsgBoxStyle.Critical)
+            Exit Sub
+        End If
 
         Dim FIRMA = "VERAG"
         Dim pfadDatei As String = System.AppDomain.CurrentDomain.BaseDirectory & "\Standort.txt"