Hallo Zusammen,
ich habe ein kleines Problem. Und zwar öffnet sich mein erstelltes Script immer wieder von selbst, so dass dieses öfters als einmal existiert, was nicht gerade förderlich ist.
Ich weiß nicht warum
Vielleicht könnt ihr mir ja weiterhelfen
Viele Grüße,
MadCatz
Code
While 1
$CheckTime = FileGetTime($FileDatabase, 1, 0)
$StringChange = _ArrayToString($CheckTime,".", 0, 2)
$StringSystemDate = @Year&"."&@MON&"."&@MDAY
$Result = StringCompare($StringChange, $StringSystemDate)
If $Result = 0 Then
MsgBox(1,$verName, "Die verwendete Datenbank ist aktuell.",2)
Elseif $Result = 1 Then
MsgBox(1,$verName,"Die Systemzeit wurde verändert und muss neu eingestellt werden.")
ElseIf $Result = -1 Then
ProcessClose("MSACCESS.exe")
Sleep(100)
FileDelete($FileDatabase)
DriveMapAdd("L:", "\\dezntengsrv1\USB-Verwaltung$", 0, "CCTechnik01", "CCUser2010")
If @error = 0 Then
SplashTextOn($verName,"Die Datenbank ist veraltet... Wird aktualisiert...", 270, 100)
FileCopy("L:\USB-Sticks-DB.accdb", $Copie)
FileSetTime($Copie, "",1)
DriveMapDel("L:")
Splashoff()
SplashTextOn($verName,"Die Datenbank wurde erfolgreich aktualisiert...", 270, 100)
Sleep(1000)
ShellExecute($File)
SplashOff()
ElseIf @error = 1 Then
MsgBox(0,$verName,"Ein Unbekannter Fehler ist aufgetreten, bitte an den Support wenden.")
ElseIf @error = 2 Then
MsgBox(0,$verName,"Der Freigabezugriff wurde verweigert, bitte an den Support wenden.")
ElseIf @error = 3 Then
MsgBox(0,$verName,"Laufwerk bereits gemapped. Wird entfernt.", 1)
DriveMapDel("L:")
ElseIf @error = 4 Then
MsgBox(0,$verName,"Der Gerätename ist ungültig, bitte an den Support wenden.")
Elseif @error = 5 Then
MsgBox(0,$verName,"Die Freigabedaten sind nicht korrekt, bitte an den Support wenden.")
Elseif @error = 6 Then
MsgBox(0,$verName,"Das Kennwort ist ungültig, bitte an den Support wenden.")
EndIf
EndIf
Sleep(28800000)
WEnd
Alles anzeigen