Run Shell Commandline Silent

[doctorcpu]

I found this code bit searching google and it does exactly what I need after a few changes. I would like to change it to run silent (No command window) but can't figure out how.

down vote​

Based on Andrew Lessard's answer, here's a function to run a command and return the output as a string -
<code style='margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; font-size: 13px; vertical-align: baseline; box-sizing: inherit; background-color: rgb(239, 240, 241); white-space: inherit;'>Public Function ShellRun(sCmd As String) As String

'Run a shell command, returning the output as a string

Dim oShell As Object
Set oShell = CreateObject("WScript.Shell")

'run command
Dim oExec As Object
Dim oOutput As Object
Set oExec = oShell.Exec(sCmd)
Set oOutput = oExec.StdOut

'handle the results as they are written to and read from the StdOut object
Dim s As String
Dim sLine As String
While Not oOutput.AtEndOfStream
sLine = oOutput.ReadLine
If sLine <> "" Then s = s & sLine & vbCrLf
Wend

ShellRun = s

End Function</code>
​

Any help would be appreciated.

 

[Rick Rothstein]

If I understand the purpose of your code correctly, you want to read in the non-blank lines in a text file. If that is correct, here is an alternate function that you can consider, simply pass the full path for the text file (drive, directories, filename and extension) into the function...

[table="width: 500"]
[tr]
	[td]Function TextFile(PathFilename As String) As String
  Dim FileNum As Long, TotalFile As String, vNum As Variant
  FileNum = FreeFile
  Open PathFilename For Binary As [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum]#FileNum[/URL] 
    TotalFile = Space(LOF(FileNum))
    Get [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum]#FileNum[/URL] , , TotalFile
  Close [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum]#FileNum[/URL] 
  For Each vNum In Array(121, 13, 5, 3, 3, 2)
    TotalFile = Replace(Replace(TotalFile, vbCrLf, vbLf), String(vNum, vbLf), vbLf)
  Next
  If Right(TotalFile, 1) = vbLf Then TotalFile = Left(TotalFile, Len(TotalFile) - 1)
  If Left(TotalFile, 1) = vbLf Then TotalFile = Mid(TotalFile, 2)
  TextFile = TotalFile
End Function[/td]
[/tr]
[/table]

 

[doctorcpu]

If I understand the purpose of your code correctly, you want to read in the non-blank lines in a text file. If that is correct, here is an alternate function that you can consider, simply pass the full path for the text file (drive, directories, filename and extension) into the function...

[TABLE="width: 500"]
<tbody>[TR]
[TD]Function TextFile(PathFilename As String) As String
  Dim FileNum As Long, TotalFile As String, vNum As Variant
  FileNum = FreeFile
  Open PathFilename For Binary As [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum"]#FileNum[/URL] 
    TotalFile = Space(LOF(FileNum))
    Get [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum"]#FileNum[/URL] , , TotalFile
  Close [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum"]#FileNum[/URL] 
  For Each vNum In Array(121, 13, 5, 3, 3, 2)
    TotalFile = Replace(Replace(TotalFile, vbCrLf, vbLf), String(vNum, vbLf), vbLf)
  Next
  If Right(TotalFile, 1) = vbLf Then TotalFile = Left(TotalFile, Len(TotalFile) - 1)
  If Left(TotalFile, 1) = vbLf Then TotalFile = Mid(TotalFile, 2)
  TextFile = TotalFile
End Function[/TD]
[/TR]
</tbody>[/TABLE]

Thanks for the reply, I'm actually trying to run this without the command window showing.

 

[Rick Rothstein]

Thanks for the reply, I'm actually trying to run this without the command window showing.

If I guessed correctly what your code is trying to do, then try the code I posted as it does not shell out so there will be no command window to hide.

 

[Fluff]

@doctorcpu
While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules).
This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

Please supply links to all other sites where you have asked this question