[VB6] ShellExecuteRésolu

Question

Salut....


Je me suis fais un programme pour ouvrir des fichiers (bon je ne sais pas quel autre mot utilisé pour dire Ouvrir un Fichier... hum exécuter un fichier enfin)

Je rentre dans un textbox le texte suivant 32399 et le programme exécute le fichier 32399.dgn..

Voici le code que j'utilise...
AU DÉMARAGE
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
Const SW_SHOWNORMAL = 1

Dans le cmdOuvrir
 Fichier1 = ShellExecute(Me.hWnd, "open", "M:\Vision97\PLAN" & strcontrat & ".dgn", vbNullString, "", SW_SHOWNORMAL)

Jusqu'ici ca va tres bien.... Ca exécute le fichier et MicroStation s'ouvre avec le fichier correspondant au texbox.

Le problème.... 

Quand j'execute Microstation (sur mon bureau je ne parle pas de code VB), je me suis créé un racourcis sur le bureau et j'ai modifier la Cible (Bouton droit de souris sur l'icîone Propriété Onglet Raccouri)
J'ai mis comme cible C:\WIN32APP\ustation\ustation.exe -wdodbc -wuvision

Comment est-il possible de coder en VB6, de prendre ce racroucis pour éxécuter le fichier que je veux exécuter à partir de mon programme VB

Le bug c'est que si j'inscrit 32399 (Mon programme exécutera le fichier 32399.dgn mais avec ce lien C:\WIN32APP\ustation\ustation.exe 

Il ne prend pas en compte c'est 2 éléments (-wdodbc -wuvision)

cs_CanisLupus · Accepted Answer

Salut, il faut coder :

ShellExecute(Me.hWnd, "open", "C:\WIN32APP\ustation\ustation.exe", "M:\Vision97\PLAN" & strcontrat & ".dgn -wdodbc -wuvision", "", SW_SHOWNORMAL)

ou

ShellExecute(Me.hWnd, "open", "C:\WIN32APP\ustation\ustation.exe", " -wdodbc -wuvision M:\Vision97\PLAN" & strcontrat & ".dgn", "", SW_SHOWNORMAL)

Les param&#232;tres &#224; passer &#224; l'appli doivent se trouver &#224; la position "lpParameters ". Il faut juste savoir dans quel ordre il faut les passer.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_DARKSIDIOUS · Answer

Essaye comme ceci :



Fichier1 = ShellExecute(Me.hWnd, "open", "M:\Vision97\PLAN" &
strcontrat & ".dgn -wdodbc -wuvision", vbNullString, "",
SW_SHOWNORMAL)
Ou comme ceci :


Fichier1 = ShellExecute(Me.hWnd, "open", "C:\WIN32APP\ustation\ustation.exe M:\Vision97\PLAN" &
strcontrat & ".dgn -wdodbc -wuvision", vbNullString, "",
SW_SHOWNORMAL)

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

cs_JeffC1977 · Answer

Salut... meric pour la réponse...

J'ai juste un problème que je n'avais pas mentionné dans mon premier message....

Le Fichier (fichier que j'inscrit dans le textbox) peut se retrouver qu'une fois dans trois répertoire...  Donc j'ai mis le code comme cela...

Fichier1 = ShellExecute(Me.hWnd, "open", "C:\WIN32APP\ustation\ustation.exe", " -wdodbc -wuvision M:\Vision97\PLAN" & strcontrat & ".dgn", "", SW_SHOWNORMAL)

Fichier2 = ShellExecute(Me.hWnd, "open", "C:\WIN32APP\ustation\ustation.exe", " -wdodbc -wuvision M:\Vision97\PLAN_2004" & strcontrat & ".dgn", "", SW_SHOWNORMAL)

Fichier3 = ShellExecute(Me.hWnd, "open", "C:\WIN32APP\ustation\ustation.exe", " -wdodbc -wuvision M:\Vision97\ARCHIVES_PLAN" & strcontrat & ".dgn", "", SW_SHOWNORMAL)



Donc j'ai un problème.... À l'exécution du programme (VB) toutes mes variables sont = à 42 (Fichier1, Fichier2 et Fichier3) et donc j'ai trois MicroStation qui s'éxeécute.. mais je veux seulement lui dire d'exécuter qu'une fois MicroStation et d'ouvrir la bon fichier....

Exist-il un facon pour régler mon problème ou bien je code quelque chose pour lui dire Si le fichier existe alors ouvre MicroStation ????

Merci d'avance

PCPT · Answer

salut,
dans ton Form_Load (ou ton Sub Main) : If App.PrevInstance Then End

PCPT

cs_CanisLupus · Answer

Alors, je dirais : If Dir("M:\Vision97\PLAN" & strcontrat & ".dgn") <> "" Then Fichier1 = ShellExecute(Me.hWnd, "open", "C:\WIN32APP\ustation\ustation.exe", " -wdodbc -wuvision M:\Vision97\PLAN" & strcontrat & ".dgn", "", SW_SHOWNORMAL) ElseIf Dir("M:\Vision97\PLAN_2004" & strcontrat & ".dgn") <> "" Then Fichier2 = ShellExecute(Me.hWnd, "open", "C:\WIN32APP\ustation\ustation.exe", " -wdodbc -wuvision M:\Vision97\PLAN_2004" & strcontrat & ".dgn", "", SW_SHOWNORMAL) ElseIf Dir("M:\Vision97\ARCHIVES_PLAN" & strcontrat & ".dgn") <> "" Then Fichier3 = ShellExecute(Me.hWnd, "open", "C:\WIN32APP\ustation\ustation.exe", " -wdodbc -wuvision M:\Vision97\ARCHIVES_PLAN" & strcontrat & ".dgn", "", SW_SHOWNORMAL) End If Il y a sans doute plus élégant mais si ça peut te dépanner.... pour l'instant. ------------------------------------------------- Dresseur de puces, .... normal pour un loup !?