Shell command

[chris_g21]

I'm tring to get a shell to execute a command line program and pass a string in "quotes" and not having any luck. Here is the line of code in question:

exec = Shell ("C:\program.exe -options") & strText

It will execute the program but it doesn't send the string with the "quotes". It needs to executes this:

c:\program.exe -options "needs to be the value of strText in quotes"

TIA,
Chris

[phinds]

exec = Shell ("C:\program.exe " & strText)

[phinds]

or, with "-options" included,

exec = Shell ("C:\program.exe -options " & strText)

[Sibby]

Try this, it'll work for launching any EXE and associated file...

'in a module
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
'in your code
Call ShellExecute(hwnd, "Open", <your path>, <your command line params>, App.Path, 1)

[Mc Brain]

I think he needs:

exec = Shell ("C:\program.exe -options " & """" & strText & """")

[JPicasso]

I'm with mcbrain.


a quick little debug trick is to "string up" your shell call.
this way you can check it in it's entirety just before it runs...

MyCompleteShellString = "C:\myprogram.exe -options""" & strtext & """"
 
Shell MyCompleteShellString

[chris_g21]

Well, I thank you all for the input. I tried JPicasso suggesttion and it works flawlessly.