Hej

Jag har följande kod för att exekvera ett externt program i VB6.0.
Exekveringen stannar upp tills det att det externa programmet har exekverat klart.

Dim wScr as Object
Set wScr = CreateObject("WScript.Shell")
Call wScr.Run("myprogram.exe", 1, true)

Hur hämtar jag texten i Console-fönstret som "myprogram.exe" genererar?
Jag kan inte skriva:

Call wScr.Run("myprogram.exe > myfile.txt", 1, true)

Då händer ingenting...

Någon som har något förslag?

/ Peter

Ett sätt vore att omdirigera strömmarna med s.k. pipes men om du vill komma undan lite enklare kan du väl generera en bat-fil som utför kommandot och sedan tar bort sig själv. Något i stil med:

myprogram.exe > myfile.txt
delete mytemp.bat

/Peter

http://www.msjogren.net/dotnet/eng/samples/vb6_cmdoutput.asp

/Johan

Ja, en smart lösning.

Då slipper man också en förfärligt massa kod för att inkludera och använda procedurer från kernel32 och liknande, vilket kanske inte alltid fungerar på alla Win OS kanske, jag vet inte riktigt.

Men att använda bat- och kolla innehållet i myfile.txt exempelvis, låter som en smidig lösning.

Tackar