Public Class Form1
Private Sub TextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop
Dim Ret As Long
Dim str As String
'ドロップされた内容を表示する
TextBox1.Text = e.Data.GetData(DataFormats.FileDrop)(0)
str = "c:\d2txt\xdoc2txt.exe " & TextBox1.Text & " > c:\d2txt\aaa.txt"
Ret = Shell(str, vbNormalFocus)
End Sub
リダイレクトの機能はシェルが提供しているからだと思います。
したがって、シェル経由でプログラムを起動してあげればよいです。
cmd /c をstrの先頭につけて実行してください。
str = "cmd /c c:\d2txt\xdoc2txt.exe " & TextBox1.Text & " > c:\d2txt\aaa.txt"
できました。ありがとうございます。