topic running Tcl-Application from VBA 6.0 in VBA Forum

running Tcl-Application from VBA 6.0

Anonymous — Wed, 08 Aug 2001 01:41:09 GMT

Hi,

I'd like to start a Tcl-Script from VBA. In the NT-Dos-Shell the following
command works properly :

" tclsh83 D:/TCL_Programme/test.tcl > D:/TCL_Programme/rest_0.txt "

The Vba-Code doesn't have any result:

Dim Ergebnis
Dim strName As String
strName= "D:/TCL_Programme/test.tcl > D:/TCL_Programme/rest_0.txt"
Ergebnis = Shell("tclsh83 & Space(1) & strName, 1)

Also using the SendKey-Method :
Ergebnis = Shell("tclsh83.exe ") // is successful
SendKeys "D:/TCL_Programme/test.tcl > D:/TCL_Programme/rest_0.txt", True
or even SendKeys "exit, True" in order to terminate doesn't work.

Any Ideas how surrender Parameteres to tcl83 ?

Thanx

Re: running Tcl-Application from VBA 6.0

Anonymous — Wed, 08 Aug 2001 03:35:49 GMT

On Wed, 8 Aug 2001 02:41:09 -0700, Arash.Aram@fujitsu-siemens.com (Arash
Aram) wrote:

» I'd like to start a Tcl-Script from VBA. In the NT-Dos-Shell the following
» command works properly :
»
» " tclsh83 D:/TCL_Programme/test.tcl > D:/TCL_Programme/rest_0.txt "
»
» The Vba-Code doesn't have any result:
»
» Dim Ergebnis
» Dim strName As String
» strName= "D:/TCL_Programme/test.tcl > D:/TCL_Programme/rest_0.txt"
» Ergebnis = Shell("tclsh83 & Space(1) & strName, 1)

Redirection is handled internally by the command interpreter. You need to
pass the entire string to a new instance of command.com or cmd.exe. Try
this:

Ergebnis = Shell(Environ$("ComSpec") & " " & _
"tclsh83" & Space(1) & strName, 1)

--
Paul Marshall
pmarshal@vulcraft-al.com

Re: running Tcl-Application from VBA 6.0

Anonymous — Wed, 08 Aug 2001 06:21:43 GMT

> The Vba-Code doesn't have any result:
>
> Dim Ergebnis
> Dim strName As String
> strName= "D:/TCL_Programme/test.tcl > D:/TCL_Programme/rest_0.txt"
> Ergebnis = Shell("tclsh83 & Space(1) & strName, 1)
>

What about:

Ergebnis = Shell("tclsh83" & Space(1) & strName, 1)