Passing command to opened file!

[eNdOVEiN]

hi all!!! =D

i need to know, how, can i send command parameter to an opened file!!!
following this part of code:

Private Sub mnuclass2jadfile_Click()
cdlFiles.Filter = "Files (*.class) |*.class"
cdlFiles.DefaultExt = "class"
cdlFiles.DialogTitle = "Open File"
cdlFiles.Flags = cdlOFNFileMustExist + cdlOFNPathMustExist
'On Error GoTo No_Open
cdlFiles.ShowOpen
Open cdlFiles.FileName For Input As #1

supposing i want send this command to opened file:

ShellExecute Me.hwnd, "Open", "jad.exe", " jad *.class > \jad", "\jad", SW_SHOWNORMAL


any suggestions!?
tnx.

[Phil Weber]

I don't think you want to open the file. As I understand it, you want to prompt the user to select a .class file, then pass the selected file name to a program called jad.exe, correct? If so, try something like this:

With cdlFiles
    .Filter = "Files (*.class) |*.class"
    .DefaultExt = "class"
    .DialogTitle = "Open File"
    .Flags = cdlOFNFileMustExist Or cdlOFNPathMustExist
    .ShowOpen
    If Len(.FileName) Then
        Shell "d:\path\jad.exe " & .FileName
    End If
End With