Recherche WindowsRésolu

Question

Salut !

Savez vous svp comment ouvrir le fichier de chercher windows depuis un bouton ?

Démarrer > Rechercher

Merci						

----------
OS        : Windows XP SP3 et Vista 32
Platforme : VB 6.0 + SP6
Ok VB6.0 c'est pas net !

lolokun · Accepted Answer

Ha non j'ai rien dit en vb6,, avec l'api shellexcute:

ShellExecute 0, "find", "C:	emp", "", "", SW_SHOWMAXIMIZED


L'expérience, c'est une connerie par jour, mais jamais la même..

lolokun · Answer

Bonjour,

Le "rechercher" ce n'est ni plus ni moins que le process "explorer.exe" avec l'onglet rechercher de sélectionné.
Il semblerait que cela ne soit pas possible d'après cettediscussion

Par contre, tu peux essayer de le lancer grâce au raccourci clavier :
Touche windows + F

L'expérience, c'est une connerie par jour, mais jamais la même..

Sinsitrus · Answer

lol, merci lolokun

Es tu sûr de la commande :
ShellExecute 0, "find", "C:	emp", "", "", SW_SHOWMAXIMIZED 
Elle ne fonctionne pas chez moi :s

lolokun · Answer

Si tu es en vb6 oui.
Elle ne fonctionne pas?message d'erreur?
Comment as tu déclarer l'api?


L'expérience, c'est une connerie par jour, mais jamais la même..

Sinsitrus · Answer

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Private Sub Bouton1_Click()
ShellExecute 0, "find", "C:	emp", "", "", SW_SHOWNORMAL
End Sub

Aucun message d'erreur non, rien ne se passe c'est tout :s

lolokun · Answer

Ben avec ce code-ci et juste un bouton je n'ai pas de souci:

Private Declare Function ShellExecute _
    Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hwnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long


Private Sub Command1_Click()
ShellExecute 0, "find", "c:	emp", "", "", SW_SHOWMAXIMIZED
End Sub


L'expérience, c'est une connerie par jour, mais jamais la même..

Sinsitrus · Answer

Bizarre :s
Vraiment bizarre :s:s
Je le test sur une autre machine et te préviendrai.

en tout cas merci pour ton aide ;)

lolokun · Answer

Tu es sur vista ou xp pour les tests?
Effectivement en copiant/collant ton code ça ne marche pas, par contre celui que j'ai mis j'ai pas de problème, sous XP.


L'expérience, c'est une connerie par jour, mais jamais la même..

Sinsitrus · Answer

C'est pourtant le même code le tien et le mien 
J'ai créé un autre exe et copié les mêmes codes... mais idem.
Je travail sous XP pro

lolokun · Answer

A part le private que tu as supprimé c'est le même code.
Je suis en xp Pro Sp3

Peut-être peux tu essayer en enlevant le "C:\Temp" si ce répertoire n'existe pas sur ton poste?Et de le remplacer par vbnullstring

J'ai testé apparememnt si le répertoire mentionné n'existe pas, cela n'a pas l'air de fonctionner.


L'expérience, c'est une connerie par jour, mais jamais la même..

Sinsitrus · Answer

Ah ben voilà ! Là ça fonctionne ;)

Encore merci pour ta patience et ton aide lolokun, Big Respect !

Recherche Windows

11 réponses

Votre réponse

Discussions similaires