13
VBSrcipt wscript.shell.run mit relativer Pfadangabe und Parameterübergabe ausführen
Hallo,
ich habe eine HTML Anwendung (hta) geschrieben in der ich ein VBScript über einen Button aufrufe.
Meine Anwendung befindet sich im Verzeichnis: d:/a/b/xx/yy/Anwendung.hta
Mit dem VBS-Teil möchte ich dann eine .bat ausführen und dabei den Pfad relativ angeben sowie einen Parameter übergeben.
bisher habe ich es, mit absoluten Pfad, so:
Das oben habe ich irgendwo mal gefunden - kann aber leider nicht mehr angeben wo...
Die Syntax für Shell.Run lautet normal:
RückgabeWert = Shell.Run(Befehl, FensterTyp, warten)
nun möchte ich eben als Befehl die Batch ausführen indem ich einen relativen Pfad verwende und eben noch den Parameter übergeben.
Finde die bisherige Methode auch etwas verwirrend wegen den ganzen "-Zeichen da würde mir die andere Variante auch besser gefallen!
Relative Pfadangabe:
in einer batch kann man das ja mit ../ realisieren.
Das Funktioniert so aber nicht. Bekomme die Fehlermeldung das die Datei nicht gefunden wird.
Und würde, wie bereits erwähnt, auch die andere Variante mit Return = Shell.Run () bevorzugen.
Danke
Gruß eldorado
ich habe eine HTML Anwendung (hta) geschrieben in der ich ein VBScript über einen Button aufrufe.
Meine Anwendung befindet sich im Verzeichnis: d:/a/b/xx/yy/Anwendung.hta
Mit dem VBS-Teil möchte ich dann eine .bat ausführen und dabei den Pfad relativ angeben sowie einen Parameter übergeben.
bisher habe ich es, mit absoluten Pfad, so:
Set Shell = createobject("wscript.shell")
shell.run """d:/a/b/c/d/MeineBatch.bat"", "& Parameter &", true" Das oben habe ich irgendwo mal gefunden - kann aber leider nicht mehr angeben wo...
Die Syntax für Shell.Run lautet normal:
RückgabeWert = Shell.Run(Befehl, FensterTyp, warten)
nun möchte ich eben als Befehl die Batch ausführen indem ich einen relativen Pfad verwende und eben noch den Parameter übergeben.
Finde die bisherige Methode auch etwas verwirrend wegen den ganzen "-Zeichen da würde mir die andere Variante auch besser gefallen!
Relative Pfadangabe:
in einer batch kann man das ja mit ../ realisieren.
Set Shell = createobject("wscript.shell")
shell.run """../../b/c/d/MeineBatch.bat"", "& Parameter &", true" Das Funktioniert so aber nicht. Bekomme die Fehlermeldung das die Datei nicht gefunden wird.
Und würde, wie bereits erwähnt, auch die andere Variante mit Return = Shell.Run () bevorzugen.
Danke
Gruß eldorado
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 280608
Url: https://administrator.de/contentid/280608
Printed on: April 19, 2024 at 00:04 o'clock
13 Comments
Latest comment
Hallo eldorado,
Was hältst du denn von
Google ist dein Freund
Ansonsten bietet dir die Umgebung der hta (Also des IE) auch den aktuellen Arbeitspfad.
LG
Dominique
Was hältst du denn von
meinPfad = fso.GetParentFolderName(WScript.ScriptFullName)Ansonsten bietet dir die Umgebung der hta (Also des IE) auch den aktuellen Arbeitspfad.
LG
Dominique
Hallo Dominique,
danke für deine Antwort.
Habe deinen Vorschlag wie folgend ergänzt bei mir.
leider bekomme ich beim ausführen eine Fehlermeldung
Fehler: Objekt erforderlich: '[string: "(null)"]'
Habe es inzwischen soweit, dass mir nur noch das mit der relativen Pfadangabe fehlt
Wenn ich den Pfad so angebe funktioniert das leider nicht.
(In einer Batch kann ich ja so den Pfad relativ angeben - habe gehofft das funktioniert in VBS auch so)
Gruß
eldorado
danke für deine Antwort.
Habe deinen Vorschlag wie folgend ergänzt bei mir.
Dim shell, meinPfad
set fso = CreateObject("Scripting.FileSystemObject")
Set shell = createobject("wscript.shell")
set meinPfad = fso.GetParentFolderName("wscript.ScriptFullName")
MsgBox meinPfadleider bekomme ich beim ausführen eine Fehlermeldung
Fehler: Objekt erforderlich: '[string: "(null)"]'
Habe es inzwischen soweit, dass mir nur noch das mit der relativen Pfadangabe fehlt
Set Path = "d:/a/b/c/d/"
Set File = "MeineBatch.bat"
Set Shell = createobject("wscript.shell")
Return = shell.run(Path & File & " " & Parameter,,true) Wenn ich den Pfad so angebe funktioniert das leider nicht.
(In einer Batch kann ich ja so den Pfad relativ angeben - habe gehofft das funktioniert in VBS auch so)
Set Path = "../../../b/c/d/" Gruß
eldorado
Moin,
Das macht das gewünschte ..
Die Anführungszeichen um den Batchpfad brauchst du wenn du Leerzeichen in deinem Pfad oder dem Dateinamen der Batch hast.
Zur Info: Um Einfache Anführungszeichen innerhalb einer Zeichenfolge zu erzeugen sind sie innerhalb des Strings zu verdoppeln, deswegen sind es für ein einzelnes Anführungszeichen insgesamt derer 4. Und nicht das Leerzeichen hinter dem Batchnamen vergessen, siehst du ja in Zeile 4...
Gruß jodel32
fso.GetParentFolderName("wscript.ScriptFullName")
das kann ja so nicht funktionieren, wenn du eine Funktion in Anführungszeichen kapselst Das macht das gewünschte ..
Set objShell = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.Filesystemobject")
strPathBatch = fso.GetParentFolderName(WScript.ScriptFullName) & "\DeineBatch.bat"
objShell.Run """" & strPathBatch & """ " & Parameter,0,True Zur Info: Um Einfache Anführungszeichen innerhalb einer Zeichenfolge zu erzeugen sind sie innerhalb des Strings zu verdoppeln, deswegen sind es für ein einzelnes Anführungszeichen insgesamt derer 4. Und nicht das Leerzeichen hinter dem Batchnamen vergessen, siehst du ja in Zeile 4...
Gruß jodel32
1das kann ja so nicht funktionieren, wenn du eine Funktion in Anführungszeichen kapselst
...Und das war nicht mal ein gedankenloser Copy&Paste Fehler.
Wenn ich das teste
bekomme ich eine Fehlermeldung:
Fehler: Objekt erforderlich: "WScript"
in Zeile 1
Gruß eldorado
strPathBatch = fso.GetParentFolderName(WScript.ScriptFullName) & "\MeineBatch.bat"
MsgBox strPathBatchbekomme ich eine Fehlermeldung:
Fehler: Objekt erforderlich: "WScript"
in Zeile 1
Gruß eldorado
Ach das ist ja ne HTA ... dann muss das natürlich anders lauten:
Set objShell = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.Filesystemobject")
strHtmlPath = document.location.href
Set objThisFile = fso.GetFile(UnEscape(Replace(Right(strHtmlPath, Len(strHtmlPath) - 8), "/", "\")))
strPathBatch = objThisFile.ParentFolder & "\DeineBatch.bat"
objShell.Run """" & strPathBatch & """ " & Parameter,0,True
Hallo,
ich weiß nicht ob ich jetzt irgendwo einen Denkfehler habe oder einfach nicht verstehe.
Wenn ich das jetzt ausführe bekomme ich das Verzeichnis in dem sich meine .hta befindet oder?
ich weiß nicht ob ich jetzt irgendwo einen Denkfehler habe oder einfach nicht verstehe.
Wenn ich das jetzt ausführe bekomme ich das Verzeichnis in dem sich meine .hta befindet oder?
ich weiß nicht ob ich jetzt irgendwo einen Denkfehler habe oder einfach nicht verstehe.
Das weißt nur du ... zisch dir erst mal einen Kaffee Zitat von @eldorado1:
Wenn ich das jetzt ausführe bekomme ich das Verzeichnis in dem sich meine .hta befindet oder?
Korrekt !Wenn ich das jetzt ausführe bekomme ich das Verzeichnis in dem sich meine .hta befindet oder?
okay
Wenn das mein Verzeichnis für die .hta ist:
d:/a/b/xx/yy/Anwendung.hta
dann bekomme ich damit
strPathBatch = d:/a/b/xx/yy
mit jedem weiteren
komm ich dann eine Ebene weiter
also beim nächsten Aufruf wäre ich dann bei
d:/a/b/xx
Wenn das mein Verzeichnis für die .hta ist:
d:/a/b/xx/yy/Anwendung.hta
dann bekomme ich damit
strHtmlPath = document.location.href
Set objThisFile = fso.GetFile(UnEscape(Replace(Right(strHtmlPath, Len(strHtmlPath) - 8), "/", "\")))
strPathBatch = objThisFile.ParentFolderstrPathBatch = d:/a/b/xx/yy
mit jedem weiteren
strPathBatch.ParentFolderalso beim nächsten Aufruf wäre ich dann bei
d:/a/b/xx
Rischtisch ! Du kannst die Aufrufe auch gleich direkt hintereinander hängen, das kommt auf das selbe raus:
https://msdn.microsoft.com/en-us/library/dt64ftxb%28v=vs.84%29.aspx
objThisFile.ParentFolder.ParentFolder.ParentFolder
Okay
mein Denkfehler war ein Tippfehler - habe ich erst gerade gesehn.
Super Danke
funktioniert jetzt einwandfrei ;)
mein Denkfehler war ein Tippfehler - habe ich erst gerade gesehn.
Super Danke
funktioniert jetzt einwandfrei ;)
