EXECUTION DE COMMANDE ET ATTENTE DE FIN

Signaler
Messages postés
133
Date d'inscription
lundi 26 janvier 2009
Statut
Membre
Dernière intervention
24 novembre 2014
-
Messages postés
1
Date d'inscription
jeudi 28 octobre 2004
Statut
Membre
Dernière intervention
12 avril 2011
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/8551-execution-de-commande-et-attente-de-fin

Messages postés
1
Date d'inscription
jeudi 28 octobre 2004
Statut
Membre
Dernière intervention
12 avril 2011

Juste une alternative sans passer par les API Windows :

Sub ShellAndWait(PathName As String, _
Optional WindowsStyle As VbAppWinStyle = vbMinimizedFocus)

Dim ShellCmdPath As String
Dim FileNumber As Long
Dim template As String
Dim i As Integer

' Generate a temporary filename
i = 0
Do
ShellCmdPath = Hex(i) & ".bat"
i = i + 1
Loop While Len(Dir(ShellCmdPath)) > 0

' Prepare batch file content
template = "@echo off" & vbCrLf

' Action to execute
template = template & PathName & vbCrLf

' Remove created batch file when action has been executed
template = template & "del " & ShellCmdPath

' Create batch file
FileNumber = FreeFile
Open ShellCmdPath For Output As #FileNumber
Print #FileNumber, template
Close #FileNumber

' Execute batch file containing action
Shell ShellCmdPath, WindowsStyle

' Wait for asynchronous command to finish
While Len(Dir(ShellCmdPath)) > 0
DoEvents
Wend
End Sub
Messages postés
70
Date d'inscription
dimanche 11 janvier 2004
Statut
Membre
Dernière intervention
1 octobre 2004

Chapeau pour ce petit bout de code, qui aurait pu être, et même du être, un argument Wait dans le Shell de base de VB.

Thx pour cela, et sinon je m'en sers dans une appli pour un controle de raccourci de Jeu.
(Tu clique le programme charge l'image cd et lance l'executable, en clair ton jeu démarre sans avoir besoin de faire d'opérations chiantes.Et dans cela il sert à protéger contre la double-execution du jeu par simple bascule)

Bonne continuation.
Messages postés
1
Date d'inscription
jeudi 2 mars 2006
Statut
Membre
Dernière intervention
27 octobre 2006

Merci beaucoup !
Ton code m'a sauvé la vie ...
Surtout par sa facilité d'intégration
Messages postés
46
Date d'inscription
samedi 1 mars 2003
Statut
Membre
Dernière intervention
16 septembre 2008

Pas mal je m'en sers pour faire des mises à jours de mon logiciel sans que l'utilisateur puisse continuer à utiliser ou installer ou configurer le reste...
Afficher les 30 commentaires