Discussion :

[Gildas22]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[clementmarcotte]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[Gildas22]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

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.

[Gildas22]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.