Hallo Thorsten,
kleine BUG-Meldung: Wenn das Fenster; in dem die Scriptdatei gezeigt bzw bearbeitet werden kann, in der Größe geändert wird bleibt der "I" -Button einfach an seiner Position stehen. Er wird bem Vergrößern des Fensters nicht mit verschoben.
Nachtrag:
Habe auch Probleme mit der Ausführung von einem VB-Script. Das folgende Script funktioniert außerhalb von ES einwandfrei. Bei der Ausführung duech den ES-Installer komme ich bis zur erstellung des WshShell Objektes, dann ist kommentarlos Schluß.
Code: Alles auswählen
MsgBox "Messagebox 1",0,"TITEL"
Dim FS
MsgBox "Messagebox 2",0,"TITEL"
Set FS = CreateObject("Scripting.FileSystemObject")
MsgBox "Messagebox 3",0,"TITEL"
Set WshShell = WScript.CreateObject("WScript.Shell")
MsgBox "Messagebox 4",0,"TITEL"
WshShell.popup "Migration der Daten von V2.2.x zu Version V2.3.x", 5 ,"Setup"
MsgBox "Messagebox 5",0,"TITEL"
If FS.FolderExists("C:\Telefon") Then
'Jetzt wird der Geraffel umbenannt und in das neue Vezeichnis kopiert
WshShell.popup "Kopiere Benuterdaten in neues Verzeichnis", 2, "Setup"
If FS.FileExists("C:\Telefon\UserDat.TXT") Then
WshShell.popup "Kopiere Benutzer-Telefonbuch",2,"Setup"
Set Datei = FS.GetFile("C:\Telefon\UserDat.TXT")
Datei.Copy esProgDir & "UserNum.TVZ", True
Datei.Delete(True)
else
WshShell.popup "Altes Benutzer-Telefonbuch nicht gefunden, bitte Manuell in UserNum.TVZ umbenennen und kopieren.",2,"Setup"
End If
'Deinstallieren der alten Version
If FS.FileExists("C:\Telefon\unins000.exe") Then
WshShell.popup "Bitte die Deinstallation der alten Programmversion bestätigen", 10, "Setup"
WshShell.Run "C:\Telefon\unins000.exe", 5, True
End If
FS.DeleteFolder("C:\Telefon")
Else
WshShell.popup "Verzeichnis 'C:\Telefon' nicht gefunden",2,"Setup"
End If
"Wenn Sie glauben, mich verstanden zu haben, dann habe ich mich falsch ausgedrückt" ( Alan Greenspan)
) hätte ich noch ein einen Wunsch/Verbesserungsvorschlag :
