Запуск Fortran-овского приложения 10-20летней давности

[MAGRAV]

Господа помогите запустить Fortran-овское приложения 10-20летней давности посредством VB
Это досовская программа, которая вначале своей работы обращается в текстовый файл хранящий исходные данные. Закончив свою работу она создаёт выходной файл с результатами расчёта. Я пытался запустить этот файл Посредством функции Shell в VB6 и посредством функции Start() в VB NET. В обоих случаях эти подходы позволяли запускать на исполнение програмки созданные в VB, но с фортрановским файлом начинаются проблемы. Он запускается, но не выдаёт файл с результатами расчёта что свидетельствует о том что расчёт не производится. Он какбы открывается и тутже закрывается. В чём может быть причина? В чём неправильность подхода? Возможно ли вообще это осуществить в данном случае?!

[alibek]

А почему тут?
Предупреждение.

[Antonariy]

Это же DOS-программа. Ее нужно запустить в консоли и посмотреть, что ей не нравится.

[Хакер]

запускается, но не выдаёт файл с результатами расчёта что свидетельствует о том что расчёт не производится. Он какбы открывается и тутже закрывается. В чём может быть причина?

В Current Working Directory?

[Денис]

А можно код увидеть?

[MAGRAV]

В VB6 в общем виде мои действия выглядят так:
Dim hProcess As Long
Dim AppToRun As String 'Адрес исполняемого файла
'Dim mode As VbAppWinStyle 'Характеризует состояние исполняемого приложения
AppToRun = "D:\Работа\Прочее\Профилирование\Rabota\Программа профилирования лопаток\S03244.EXE"
hProcess = Shell(AppToRun, 1) 'Конструкция для запуска приложения

Фортрановский файл запускается, но потом пишет что:
run-time error F6501: READ<in.dat>
-end of file encountered
in.dat - это файл исходных данных.

В VB NET делал по разному основываясь на "рецептах" найденных на этом и других форумах. Вот один из них:
Dim myProcess As Process = _
Process.Start("D:\Работа\Прочее\Профилирование\Rabota\Программа профилирования лопаток\S03244.EXE")
В случае данного приложения я неизменно получаю ответ от среды что:
System.ComponentModel.Win32Exception не обработано
ErrorCode=-2147467259
Message="Параметр задан неверно"
NativeErrorCode=87
Source="System"

В случае с другими приложениями эти подходы были работоспособны.
Думали попробовать сделать это на Си, но боюсь что получу тотже результат. Видимо есть какаято особенность. В фортрановских код лезть конечно не хотелось бы. Его раздобыть можно, но фортрана я не знаю да и времени на это нет.

[iGrok]

Фортрановский файл запускается, но потом пишет что:
run-time error F6501: READ<in.dat>
-end of file encountered
in.dat - это файл исходных данных.

Ну так написали же, в чём дело.

В Current Working Directory?

Нужно сменить "текущую папку" на ту, в которой находится фортрановское приложение. Как это сделать - в поиск по форуму или гугль.

[MAGRAV]

Моё приложение на VB находится в одной папке с Fortran-овской программой. Файл исходных данных in.dat, который необходим для Fortran-овской программы, находится тамже.

[Денис]

Моё приложение на VB находится в одной папке с Fortran-овской программой. Файл исходных данных in.dat, который необходим для Fortran-овской программы, находится тамже.

При этом, ты запускаешь программу прямо из бейсика?? (по клавише F5)?
А ведь при этом, рабочая папка устанавливается папкой, где установлен бейсик.
Нужно проверить, запускается ли стороннее приложение, если запускать скомпилированную программу на бейсике?

[MAGRAV]

Благодарю вас Денис за ценный совет! Вы попали прямо в яблочко! Просто я изначально делал упор только лишь на VBA программу. Тобиж платформой был Excel. Мне просто так удобнее. Даже както и не придал особого значения тому, что надобы скомпилировать прогу в нужную папку именно на VB. Программа с VBA в Excel оказывается вовсе не замена в подобных случаях.

Далее другой вопрос.... Запущенная программа просит 2 раза ввести двойку и нажимать "ентер". Этого я точно не знаю.
Подскажите ктонибудь направление как это воплотить программно?!

[Хакер]

Подскажите ктонибудь направление как это воплотить программно?!

Если ты и дальше будешь писать так же безграмотно, ты будешь наказан.

При создании процесса с помощью CreateProcess нужно в структуре, описывающей параметры создаваемого процессы, заменить хендл stdin-а хендлом второго конца своего пайпа и писать "2" LF "2" LF в этот пайп.