Einige Script-Beispiele zum Anpassen für eigene Zwecke
Fehlermeldungen unterdrücken:
' Fehlermeldungen unterdrücken On Error Resume Next
Message-Box:
Set shell = WScript.CreateObject("WScript.Shell")
answer=MsgBox("Programm und alle Daten löschen?", vbYesNo,"Deinstallation")
if answer = vbYes then
' Auszuführender Code bei "Ja"
else
end if
Ordner mit Unterordner und allen Dateien löschen (Vorsicht!):
' Ordner löschen
strFolder = "C:\Programm\Files"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder strFolder, True
Inhalt eines Ordners löschen (Vorsicht!):
Set FS=CreateObject("Scripting.FileSystemObject")
' "c:\MyFolder\" durch eigenen Pfad ersetzen
Set Folder = FS.GetFolder("c:\MyFolder\")
For Each File In Folder.Files
File.Delete
Next
Pause einfügen:
' Pause 2 sec. WScript.sleep 2000
Programmdatei aufrufen/starten:
' Uninstaller aufrufen oShell.Run "Uninstall.exe",,True
URL aufrufen (auch lokale Seiten mit c:\…):
Set wshshell = CreateObject("WScript.Shell")
wshshell.Run ("http://web266.de/")