Sunday, January 14, 2007

Open any document in IFix via shell

Below is a sample procedure to open a text in IFix.
Private Sub CommandButton1_Click()
    Dim ret As Long
    Dim hwnd As Long

    hwnd = FindWindow(vbNullString, Application.Caption)
    ret = shellExecute(hwnd, "Open", "c:\DVPendingFileRenameOp.log", vbNullString, vbNullString, 4)
End Sub
Note: Application is an IFix global variable.

No comments: