文字列を与えるとある変換をして画面上に出力するソフトがあります。
これをVB6で駆動し、変換した出力を画面でなくファイルにしたいのですがうまくいきません。

DOC窓で以下のようにリダイレクトコマンドを入れたところうまくいきました。

>\HENKAN.EXE "ABCDE" > HENKANout.txt　’"ABCDE"は変換したい文字列

VBレスキュー(052)を参考にさせていただき以下のようにしましたがうまくいきません。

1.まずはプログラムの駆動と変換がされるか確認しました。
   MyFile = Chr$(34) & "ABCDE" & Chr$(34) 'OK
   Ret = Shell("C:\HENKAN.EXE " & MyFile, vbNormalFocus)
結果1.DOS窓が一瞬開き、画面に変換結果がでます。変換はOKでした。


2.次に画面の出力をリダイレクトでファイルに出力させました。
   MyFile = Chr$(34) & "ABCDE" & Chr$(34) & " > C:\HENKANout.txt"
   Ret = Shell("C:\HENKAN.EXE " & MyFile, vbNormalFocus)

結果2.ファイルはできず、1.の結果と同じ画面に出力される結果となりました。

画面に出力される他のプログラムをファイルに出力させるにはどのようにすれば
よいでしょうか。

> DOC窓で以下のようにリダイレクトコマンドを入れたところうまくいきました。
DOC窓?


> 結果2.ファイルはできず、1.の結果と同じ画面に出力される結果となりました。
Shell Environ("COMSPEC") & " /C C:\HENKAN.EXE ""ABCDE"" > C:\HENKANout.txt", vbNormalFocus
でどうでしょう。

魔界の仮面弁士さま　

ご教授ありがとございます。


> Shell Environ("COMSPEC") & " /C C:\HENKAN.EXE ""ABCDE"" > C:\HENKANout.txt", vbNormalFocus
> でどうでしょう。

上の方法でファイル出力ができるようになりました。
Shell Environ("COMSPEC")の方法は今後も何かに使えそうです。

ありがとうございました。