Discussion :

[Ric500]

Bonsoir à tous,

Dans mon code j'ouvre l'explorateur avec la fonction shell sur un dossier donné par:

Code :

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

ret = Shell("explorer.exe /root, " & mediaPath, vbNormalFocus)

Mais ce dossier peut contenir beaucoup de fichiers et la recherche peut s'avérer fastidieuse. J'aimerais pouvoir ouvrir le dossier et mettre le focus sur un fichier dont je connais le nom.

Pensez-vous cela possible?

Merci d'avance

[loufab]

Bonjour,

Ici c'est la commande système Shell qui va faire ce boulot. Il te faut donc vérifier dans la doc si c'est possible.

Cordialement,

[Ric500]

Bonjour loufab,

J'ai bien vérifié ici et là les paramètres de Shell: pas de solution à mon problème.

D'ailleurs je ne suis obligé d'utiliser cette fonction j'explore en ce moment les paramètres de ShellExecute:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpszOp As String, _
    ByVal lpszFile As String, ByVal lpszParams As String, _
    ByVal LpszDir As String, ByVal FsShowCmd As Long) _
    As Long
 
Public Sub ShellExec(FileToOpen As String, Optional Params As String = "", _
                    Optional DefaultDir As String = "", Optional ShowHow As Long = 1)
 
    ShellExecute 0, "OPEN", FileToOpen, Params, DefaultDir, 1
End Sub

Je m'interroge dans le but de sélectionner un fichier dans l'explo, sur le paramètre ShowHow (pourrait-il faire le boulot?).

[Ric500]

Je reviens sur ce billet:

J'ai essayé avec les 2 fonctions:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ErrMedia_DblClick(Cancel As Integer)
    Dim ret As Long, mediaPath As String, strShell As String
    Me.Refresh
    mediaPath = Replace(ERRMediaFullPath, "\" & ErrMedia, "")
    If flagMediaOpen = True Then
        ret = ShellExecute(Me.hWnd, "open", ERRMediaFullPath, "", mediaPath, 1)
        Else
        ret = Shell("explorer.exe /e, " & ERRMediaFullPath & ",/select, " & ERRMediaFullPath, vbNormalFocus)
'        strchain = "explorer.exe /e, " & ERRMediaFullPath & ",/select, " & ERRMediaFullPath
'        ret = ShellExecute(Me.hWnd, "open", strShell, "", mediaPath, 1)
        DoEvents
    End If
End Sub

Avec Shell, malgré le paramètre vbNormanFocus, l'explo se lance bien avec le focus sur fichier désigné mais en mode minimisé dans la barre de taches !!!

Avec ShellExecute, la fenêtre explo se lance bien en mode fenêtré, mais sans le focus sur fichier désigné

[tee_grandbois]

bonjour Ric500,
as-tu essayé avec vbMaximizedfocus ?

Code :

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

       ret = ShellExecute(Me.hwnd, "open", strShell, "", mediaPath, vbMaximizedfocus)

[Ric500]

Oui! Bonjour tee_grandbois,

J'ai essayé et, tiens toi bien, la fenêtre s'ouvre bien maximisée, mais derrière toutes les autres ! Et sans donner le focus au fichier désigné !

[loufab]

Désolé j'ai écrit Shell mais c'est à Explorer que je pensais.

Explorer a ce type d'option : "Select"