neu

initATLASAufschubkonten/frmRoutineManager.vb

@@ -27,7 +27,7 @@ Public Class frmRoutineManager
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
 
     End Sub
-    Public Shared Path As String = "\\192.168.0.91\f\FMZoll\Datensicherung\atlas\atlas\fssouzb" '"G:\atlas\atlas\fssouzb"
+    Public Shared PathATLAS As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_ATLAS_Datensicherung  '"G:\atlas\atlas\fssouzb"
     ' Dim ico As New NotifyIcon
     '  Private Sub frmMain_FormClosing(sender As Object, e As EventArgs) Handles Me.FormClosing
     '     icoAufschub.Visible = False
@@ -55,7 +55,7 @@ Public Class frmRoutineManager
     Private Shared Sub Run()
         ' Create a new FileSystemWatcher and set its properties.
         Dim watcher As New FileSystemWatcher()
-        watcher.Path = Path
+        watcher.Path = PathATLAS
         ' Watch for changes in LastAccess and LastWrite times, and
         ' the renaming of files or directories. 
         watcher.NotifyFilter = (NotifyFilters.LastAccess Or NotifyFilters.LastWrite Or NotifyFilters.FileName Or NotifyFilters.DirectoryName)
@@ -77,12 +77,13 @@ Public Class frmRoutineManager
     End Sub
     Public Sub doWork()
         Dim startTime As DateTime = Now
+
         If False Then
 
+            setLabel(lblStatusEZOLL, "wartet ...", "green")
             setLabel(lblStatusATLAS, "läuft ...", "green")
-        setLabel(lblStatusEZOLL, "wartet ...", "green")
             Try
-                AtlasAufschubDatenEinlesen.initAllFiles(Path, HISTORY)
+                AtlasAufschubDatenEinlesen.initAllFiles(PathATLAS, HISTORY)
                 setLabel(lblStatusATLAS, "OK", "green")
                 'frmAtlasAufschub.lblStatusATLAS.ForeColor = Color.Green
             Catch ex As Exception