Problème fermeture fichier ouvert avec la commande shell

Bonjour,

Je rencontre un problème avec mon programme.

Je souhaite fermer un fichier ouvert avec la commande shell mais je ne trouve pas de solution.

Je m'adresse donc à vous pour avoir votre aide.

Il semble exister des solutions pour fermer l'application notepad voir lien http://vb.developpez.com/faq/?page=Systeme#close_exe. Mais cette fonction ne fonctionne pas avec visual basic 2010 express car erreur générée lors de la compilation ("Impossible de convertir Addressof en long, car long n'est pas un type délégué" donc je ne peux savoir si cette fonctionne répond à mes attentes ou si elle ferme notepad et le fichier ouvert.

Les lignes de mon programme sont les suivantes:

Code:

---

1 2 3

Dim ReturnValue ReturnValue = Shell("c:\windows\notepad.exe c:\monfichier.txt", 1) AppActivate(ReturnValue)

---

Cette commande a lancé notepad et ouvert le fichier monfichier.txt sur mon écran.

J'ai effectuer de l'écriture dans ce fichier et je voudrais maintenant le fermer. Quelles commande dois-je utiliser pour seulement fermer le fichier tout en laissant notepad ouvert et les autres fichiers ouvert avant mon application ?

Merci pour votre aide. :)

Bonjour,

Citation:

---

Envoyé par Gildas22

Bonjour,

Mais cette fonction ne fonctionne pas avec visual basic 2010 express car erreur générée lors de la compilation ("Impossible de convertir Addressof en long, car long n'est pas un type délégué" donc je ne peux savoir si cette fonctionne répond à mes attentes ou si elle ferme notepad et le fichier ouvert.

---

Il y a une tête carrée imbécile chez Dell qui a décidé de bloquer l'accès à la FAQ VB parce qu'ils disent que c'est un forum de news. Mais, pour l'instant, ils laissent aller à développez.net . Donc, je dirais que c'est parce que le Long de VB.net n'est pas le Long de l'API.

Je pense avec beaucoup de points d'interrogation que tu dois remplacer le long dans ta ligne:

Code:

---

Declare Sub etc...

---

par Integer

Mais, ceci dit, j'ai l'impression que tu pourrais remplacer ta ligne Shell, en utilisant la classe Process du Framework

Bienvenu sur DVP
Je sais pas si tu as remarqué ou non que Notepad.exe n'est pas un programme multi-fenêtré. C'est plutôt un SDI(contraire de MDI)
Donc, même manuellement, on ne peut fermer un fichier ouvert avec Notepad sans fermer ce dernier.

Citation:

---

Envoyé par clementmarcotte

Bonjour,

Il y a une tête carrée imbécile chez Dell qui a décidé de bloquer l'accès à la FAQ VB parce qu'ils disent que c'est un forum de news. Mais, pour l'instant, ils laissent aller à développez.net . Donc, je dirais que c'est parce que le Long de VB.net n'est pas le Long de l'API.

Je pense avec beaucoup de points d'interrogation que tu dois remplacer le long dans ta ligne:

Code:

---

Declare Sub etc...

---

par Integer

Mais, ceci dit, j'ai l'impression que tu pourrais remplacer ta ligne Shell, en utilisant la classe Process du Framework

---

Merci clementmarcotte pour ta réponse, j'ai essayé en remplaçant long par Integer mais même problème. Cependant, je pense abandonner cette solution car comme le dit dit l_autodidacte il est impossible de fermer un fichier Notepad sans fermer l'application Notepad et les autres fichiers ouverts.

Citation:

---

Envoyé par l_autodidacte

Bienvenu sur DVP
Je sais pas si tu as remarqué ou non que Notepad.exe n'est pas un programme multi-fenêtré. C'est plutôt un SDI(contraire de MDI)
Donc, même manuellement, on ne peut fermer un fichier ouvert avec Notepad sans fermer ce dernier.

---

Merci l_autodidacte pour ta réponse. Donc comme il semble ne pas être possible de fermer un fichier texte dans Notepad sans fermer l'application et les autres fichiers ouverts je vais donc revoir mon développement pour fonctionner autrement.

Cependant tu fais référence à une solution qui est de remplacer la ligne shell par la classe process du Framework, peux-tu mettre un exemple car je ne connais pas cette solution et peut-être pourra-t-elle me servir pour un développement futur. Merci à toi.

Suite aux réponses de l_autodidacte et de clementmarcotte, je dois revoir mon développement.

Le programme que je développe actuellement est le suivant:

Ouverture d'une boite de dialogue où l'utilisateur saisi du texte dans une Textbox. Le programme compare ce texte saisi avec une chaine de caractères. Le résultat de cette comparaison est transféré dans un fichier texte ouvert avec notepad.

Inconvénient: Quand le fichier texte ouvert doit être fermé alors l'application notepad et les autres fichiers ouverts par l'utilisateur sont obligatoirement fermés également donc si l'utilisateur n'a pas sauvegardé sont travail celui ci est perdu :(

Je m'adresse à vous pour savoir si quelqu'un aurai une solution à ce problème.

Merci :)

J'ai réussi a effectuer l'ouverture du fichier texte et à le fermer. Si notepad est déjà lancé avec d'autres fichiers texte alors à la fermeture seulement le fichier texte ouvert par l'application que j'ai créé se fermera. Je vous laisse le code qui pourra servir à d'autres personnes.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Imports System.Threading   Module Module1   Public myProcess As Process Public j As Integer   Sub ouverture_fermeture_mon_fichier()   If j = 0 Then myProcess = Process.Start("c:\mon_fichier.txt") Dim i As Integer For i = 0 To 1 If Not myProcess.HasExited Then myProcess.Refresh() Console.WriteLine("Physical Memory Usage: " + _ myProcess.WorkingSet.ToString()) Thread.Sleep(100) Else Exit For End If   Next i Form1.Activate() 'Redonne le focus à la boite de dialogue End If If j = 1 Then myProcess.CloseMainWindow() myProcess.Close() Form1.Activate() 'Redonne le focus au à la boite de dialogue End If   End Sub   End Module

---

PS:La variable j est une variable qui est utilisée dans une autre sub du projet et qui prend une valeur 0 ou 1 suivant un test que j'effectue dans cette autre sub

Merci à clementmarcotte qui m' a orienté vers la classe process et qui m'a permis d'avancer sur ce projet et merci également à l_autodidacte.