Option Explicit
Dim shell, fso, targetFolder, launcher, commandLine
Set shell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
targetFolder = shell.ExpandEnvironmentStrings("%LOCALAPPDATA%\AlerteAgenda")
launcher = fso.BuildPath(targetFolder, "launch_hidden.vbs")
If Not fso.FileExists(launcher) Then
  MsgBox "Alerte Agenda V1.0 n'est pas installe. Lancez d'abord INSTALLER_V10_SANS_FENETRE.vbs.", 48, "Alerte Agenda"
  WScript.Quit 1
End If
commandLine = "wscript.exe """ & launcher & """"
shell.Run commandLine, 0, False
MsgBox "Alerte Agenda a ete relance en arriere-plan. L'icone doit apparaitre pres de l'horloge dans quelques secondes.", 64, "Alerte Agenda"
