Ich finde leider den Fehler an meinem Code nicht. Er soll ein Textpopup generieren, ein File kopieren und dasjenige dort überschreiben und dann wieder ein Textpopup generien.
Wär cool wenn mir jemand helfen könnte!
Lieber Gruss Matt
L_Welcome_MsgBox_Message_Text = "ALLE EXCEL PROGRAMME SCHLIESSEN !!!"
Call Welcome()
Dim value As String
value = Environment.UserName
My.Computer.FileSystem.CopyFile( _
"G:\Excel\Tool (ab 01.10.2007)\Add-In\Add-In.xla", _
"C:\Documents and Settings\" & Value "\Application Data\Microsoft\AddIns\Add-In.xla", _
FileIO.UIOption.AllDialogs, _
FileIO.UICancelOption.DoNothing)
WScript.Echo "Update ausgeführt."
Sub Welcome()
Dim intDoIt
intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, _
vbOKCancel + vbInformation, _
L_Welcome_MsgBox_Title_Text )
If intDoIt = vbCancel Then
WScript.Quit
End If
End Sub