I'll grateful!

Ustaad

--== Sent via Deja.com http://www.*-*-*.com/
---Share what you know. Learn what you don't.---

KB article #Q129796 about this on the Microsoft Support Site will tell
you how to do this.

Late,

Mark Gerlach

I ended up creating a tiny batch file with the name of the DOS fortran
.EXE and any command line arguments, and executing it from within VB5
or 6 with the statement:

    ExecCmd CmdStr & " /C " & TmpBat

where CmdStr = "command.com"  for Win95, Win98  or  "cmd.exe" for
WinNT  and TmpBat is the path and name of the tiny batch file.

It opens a DOS window, and closes it when finished.  You can add a
Pause line in the .bat file to keep the window open when the program
finishes.

HTH
--
Duncan

Option Explicit
Private Type STARTUPINFO
  cb As Long
  lpReserved As Long
  lpDesktop As Long
  lpTitle As Long
  dwX As Long
  dwY As Long
  dwXSize As Long
  dwYSize As Long
  dwXCountChars As Long
  dwYCountChars As Long
  dwFillAttribute As Long
  dwFlags As Long
' wShowWindow As Integer ' VB pads integers so we use bytes instead
  bytShowWindow1 As Byte
  bytShowWindow2 As Byte
' cbReserved2 As Integer
  bytReserved21 As Byte
  bytReserved22 As Byte
  lpReserved2 As Long
  hStdInput As Long
  hStdOutput As Long
  hStdError As Long
End Type
Private Type SECURITY_ATTRIBUTES
  nLength As Long
  lpSecurityDescriptor As Long
  bInheritHandle As Long
End Type
Private Type PROCESS_INFORMATION
  hProcess As Long
  hThread As Long
  dwProcessId As Long
  dwThreadId As Long
End Type
' note: lpProcessAttributes and lpThreadAttributes are normally
' defined as SECURITY_ATTRIBUTES - this example uses AS ANY in order
' to be able to pass "ByVal 0&" to use all defaults
Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA"
_
  (ByVal lpApplicationName As String, ByVal lpCommandLine As String, _
  lpProcessAttributes As Any, lpThreadAttributes As Any, _
  ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long,
lpEnvironment As Any, _
  ByVal lpCurrentDirectory As String, lpStartupInfo As STARTUPINFO, _
  lpProcessInformation As PROCESS_INFORMATION) As Long
Private Const INFINITE = -1
Private Const STARTF_USESHOWWINDOW = &H1
Private Const STARTF_USESIZE = &H2
Private Const STARTF_USEPOSITION = &H4
Private Const STARTF_USECOUNTCHARS = &H8
Private Const STARTF_USEFILLATTRIBUTE = &H10
Private Const STARTF_RUNFULLSCREEN = &H20
Private Const STARTF_FORCEONFEEDBACK = &H40
Private Const STARTF_FORCEOFFFEEDBACK = &H80
Private Const STARTF_USESTDHANDLES = &H100
Private Const STARTF_USEHOTKEY = &H200
Private Declare Function GetExitCodeProcess Lib "kernel32" _
  (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" _
  (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Function ShellWait(ByVal CommandLine As String, _
  ByVal ShowWindow As Long, _
  ExitCode As Long) As Long
Dim hTask As Long
Dim lExitCode As Long
Dim udtSI As STARTUPINFO
Dim udtPI As PROCESS_INFORMATION
Dim x As Long
ShellWait = False
On Error Resume Next
udtSI.cb = LenB(udtSI)
udtSI.dwFlags = STARTF_USESHOWWINDOW
udtSI.bytShowWindow1 = ShowWindow And 255
udtSI.bytShowWindow2 = (ShowWindow \ 256) And 255
hTask = CreateProcess(vbNullString, CommandLine, ByVal 0&, _
  ByVal 0&, False, 0, ByVal 0&, vbNullString, udtSI, udtPI)
If Err.Number <> 0 Then Exit Function
Call WaitForSingleObject(udtPI.hProcess, INFINITE)
x = GetExitCodeProcess(udtPI.hProcess, lExitCode)
ExitCode = lExitCode
ShellWait = True
End Function

Paul Hewson  paulh(a)vif.*Delete*This*.com
-------------------------------------------
  e-mail altered to foil auto-spammers  

-------------------------------------------
I used to work in a fire hydrant factory.  You couldn't park
anywhere near the place.
--Steven Wright