Appel d'un exécutable

Bonjour, je dois créer une fenêtre Windows appelant un exécutable; le problème c'est que ça ne fonctionne pas.
J'ai trouvé l'instruction systemqq mais le souci et qu'un fichier se trouvant dans le programme original n'est pas ouvert (ce fichier est ne biblio placé dans le répertoire du programme). Faut-il que je change de répertoire, que je me mette en current directory dans les options du projet ???
Mon code est:

Code:

---

1 2 3 4 5

subroutine main use dflib logical res res= systemqq('c:\multi500\multi500') end subroutine

---

sachant que multi500.exe est appelé.
Sinon, j'ai bien essayé avec createprocess mais c'est du C et je ne sais pas comment l'intégrer à fortran avec mon compilateur (Compaq Visual Fortran)

Merci

Bonjour,

Pour simplifier, j'évite de transférer des données entre le VB et le fortran.

Le code VB (6.0)
Il est utilisé pour gérer les données et constituer un fichier de commmande qui contient toutes les valeurs nécessaires, puis il lance le calcul en fortran.

Dans le code VB, après avoir complété et fermé le fichier de commande (ex :liste.dat)

Code:

---

1 2 3 4 5

Open CheminApplication & "\liste.dat" For Output As 99 Print #99, ; x1 Print #99, ; x2   close 99

---

je lance l'exécutable fortran (ex : test.exe) avec la syntaxe suivante

Code:

---

1 2 3 4 5 6 7 8

nom = "test.exe" If Dir$(nom) = "" Then strMessage = "Impossible de trouver l'executable Calcul" lngStyle = 0 + 48 intReponse = MsgBox(strMessage, lngStyle, "lancement du calcul") End End If X = Shell(nom)

---

Le code fortran
Il calcule en batch, donc toutes les données sont lues dans le fichier qui est créé par le code VB. Avant d'utiliser les données de liste.dat, le programme doit contenir une séquence du type suivant :

Code:

---

1 2 3 4 5 6

open(10,file='CheminApplication\liste.dat') read(10,*) x1 read(10,*) x2 read(10,*) x3 ; ; ; close(10)

---

suivent les lignes de programmation calcul