Update
30.07.2003 14:12:38
Markus L
habe ein Add-In (Code.xla), die mit hilfe eines anderen Add-Ins (Update.xla) automatisch auf einen aktuellen Stand gehalten werden soll. (Code s.u.) Nachdem das Update erfolgreich durchgeführt wurde, erscheint beim nächsten Start von XL die Meldung, das das Add in "Update.xla" einen kritischen Fehler hatte mit der Frage, ob das deaktiviert werden soll. Während des Updates ist jedoch keinerlei Fehler zu erkennen. Kann mir da jemand weiter helfen?
Code von Update.xla:
Sub AutoUpdate()
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objNet = objFS.GetFile("\\Server\test\Code.xla")
Set objLokal = objFS.GetFile(Application.AddIns("IT-Services").Path & "\Code.xla")
If objLokal.DateLastModified < objNet.DateLastModified Then
If MsgBox("Es ist eine neue Code.xla verfügbar. Möchtest Du Updaten?", vbYesNo, "Update") = vbYes Then
Application.AddIns("Code").Installed = False
objNet.Copy (Application.AddIns("Code").Path & "\")
Application.AddIns("Code").Installed = True
MsgBox "Es wurde eine neue Version der Code.xla heruntergeladen.", vbInformation, "Update"
End If
End If
End Sub
Vielen Dank schon mal
Markus