| |

VB Skript (VBS)Registryeintrag | |  | Autor: puecksche | Datum: 03.03.06 11:41 |
| Hallo,
kenne mich leider mit VB-Scripten gar nicht aus und habe mir den Code so zurechtgebastelt. Ich möchte gerne eine bestimmte Dateiendung mit einem bestimmten Programm parameterisiert öffnen. Dieses Script möchte ich nach einer Installationsroutine aufrufen, so dass die Dateiendung automatisch mit dem installierten Programm verbunden wird. Die Installationsroutine bietet diese Möglichkeit leider nicht
Hier einmal der Code:
Option Explicit
Dim wshShell
Dim input
Set WshShell = CreateObject("WScript.Shell")
input = "C:\Testprogramm\Test.exe" & " """ & "4" & """ """ & "1" & """" & " """ _
& "%1" & """"
WshShell.Regwrite ("HKEY_CLASSES_ROOT", ".egs", "Testprg", "REG_SZ")
WshShell.Regwrite ("HKEY_CLASSES_ROOT", "Testprg\shell\open\command", input, _
"REG_SZ")
WshShell.Regwrite ("HKEY_LOCAL_MACHINE", "Sofware\Classes\.egs", "Testprg", _
"REG_SZ")
WshShell.Regwrite ("HKEY_LOCAL_MACHINE", _
"Sofware\Classes\Testprg\shell\open\command", input, "REG_SZ")
MsgBox input, 0, "Registrierung erfolgreich ausgeführt" Nur leider bekomme ich beim ausführen immer den Fehler: Beim Aufrufen einer Unterroutine dürfen keine Klammern verwendet werden.
Nehme ich die Klammern weg, kommt der nächste Fehler. Irgendwo stecke ich da in der Sackgasse. Wahrscheinlich sehe ich vor lauter Bäumen den Wald nicht mehr ;)
Gibt es bei der Ausführung eigentlich Unterschiede zwischen Win2000 und WinXP?
Wäre super wenn ihr mir helfen könntet die Nuss zu knacken. Vielen Dank! |  |
 | Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
  |
|
Neu! sevEingabe 3.0 
Einfach stark!
Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Weitere InfosTipp des Monats Oktober 2025 Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2025 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|