Trouver le fichier ouvert par un programme

Version imprimable

22/05/2019, 15h10
Phiphi41

Trouver le fichier ouvert par un programme

Bonjour,

Je sais lister les processus ouverts, pas de soucis.

Mais en plus lorsque je vois une application Office (Word, Excel, Access), je souhaite savoir quel fichier est utilisé par cette application.

Malgré toutes mes recherches dans la classe Processus ne n'ai pas trouver mon bonheur.

Merci à ceux qui pourront m'aider.
22/05/2019, 17h44
wallace1

Bonsoir,

C'est une source en c# mais tu peux le convertir en vbnet :

https://code.msdn.microsoft.com/wind...4839f4#content

PS : contenu du code à retravailler pour obtenir l'information souhaitée bien entendu. ;)

EDIT :

Il y a ça aussi :

https://stackoverflow.com/questions/...file-using-net

A++
22/05/2019, 17h49
clementmarcotte

Bonjour,

La version VB.net est là

Le lien a été corrigé.
22/05/2019, 18h13
Phiphi41

Salut,

Merci à tous, je vais éplucher cela, et le lien VB.net ne fonctionne pas.
23/05/2019, 01h45
clementmarcotte

Bonjour,

Citation:

Envoyé par Phiphi41

Salut,

Merci à tous, je vais éplucher cela, et le lien VB.net ne fonctionne pas.

Désolé. Je viens de le corriger. J'ai été obligé de remplacer ma souris avec fil, par une souris sans fil. Mais. avec Windows 10, ce n'est pas une sinécure. En fait, c'est une souris Click-and-pray. Comme au temps du Plug-and-Pray. (Avant le Plug-and-Play de Windows 95)
23/05/2019, 04h08
Phiphi41

Merci,

J'ai jeté un coup d'oeil avant de tester, je pense que cela ne va pas fonctionner pour tous les cas sauf Access.

En effet un base Access n'est pas locked quand on l'utilise, on peut toujours l'ouvrir d'autre part.

Mais je testerai.

Merci à tous les deux.
26/05/2019, 20h32
wallace1

Bonsoir,

J'ai regardé s'il y avait d'autres solutions et je suis tombé sur ce ci :

https://social.msdn.microsoft.com/Fo...csharplanguage

A voir, ça m'a l'air d'être une bonne alternative. ;)
27/05/2019, 03h54
Phiphi41

Salut,

Le dernier lien a l'air prometteur, je vais essayer de me dépatouiller avec cela.

Mon collègue qui est un spécialiste Access et .net a quitté le service pour un autre et donc j'ai un peu de mal, même s'il me donne de bon coups de mains quand il a un peu de temps.

bonjour,
je ne sais pas si c'est quelque chose comme ça que tu cherche

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
  Sub Main()
        Dim MyProcess As String = "Word.Application" 'j'ai trouvé mon process word!
        Dim wrd As Object = GetObject(MyProcess)
        If wrd IsNot Nothing Then
            For i As Integer = 1 To wrd.documents.count
                Debug.Print(wrd.documents(i).name)
            Next
        End If
    End Sub
    Friend Function GetObject(ByVal App As String) As Object
        Try
            ' log.Debug("Begin...")
            Return Marshal.GetActiveObject(App)
        Catch ex As Exception
                Return Nothing
                'Log.Error("", ex)
            Finally
                ' log.Debug("End...")
            End Try
    End Function

14/06/2019, 10h16
Phiphi41

Salut,

C'est à peu prêt cela, je testerais la semaine prochaine car là j'ai un autre soucis.

Je vous tiens au courant.
11/07/2019, 13h48
Phiphi41

Bonjour

Merci, mais cela ne fonctionne pas pour Access.

Bon je laisse tomber pour l'instant, mais je laisse ouvert au cas où, car non Résolu.

Bonjour

Bon, j'ai progressé avec le code suivant, le hic c'est que si j'ai 2 voir plus bases d'ouvertes, cela ne m'affiche que la première qui a été ouverte et pas les autres, alors que si j'ai par exemple 32 bases, j'ai 3 affichages mais avec le même nom à chaque fois, pas top top comme truc.

Il parcourt bien tous les processus, mais pourquoi n'afficher que le même 3 fois ????

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        For Each p As Process In Process.GetProcesses
            If p.ProcessName = "msaccess" Then
                Dim acc As Object = GetObject("Access.Application")
 
                MessageBox.Show(acc.CurrentProject.FullName)
 
            End If
        Next
    End Sub
    Friend Function GetObject(ByVal App As String) As Object
        Try
            ' log.Debug("Begin...")
            Return Runtime.InteropServices.Marshal.GetActiveObject(App)
        Catch ex As Exception
            Return Nothing
            'Log.Error("", ex)
        Finally
            'Log.Debug("End...")
        End Try
    End Function