EXECUTION DE COMMANDE ET ATTENTE DE FIN
Rrominet
Messages postés
133
Date d'inscription
lundi 26 janvier 2009
Statut
Membre
Dernière intervention
24 novembre 2014
-
17 sept. 2003 à 20:28
varaxor Messages postés 1 Date d'inscription jeudi 28 octobre 2004 Statut Membre Dernière intervention 12 avril 2011 - 12 avril 2011 à 17:58
varaxor Messages postés 1 Date d'inscription jeudi 28 octobre 2004 Statut Membre Dernière intervention 12 avril 2011 - 12 avril 2011 à 17:58
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
https://codes-sources.commentcamarche.net/source/8551-execution-de-commande-et-attente-de-fin
12 avril 2011 à 17:58
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
20 nov. 2006 à 15:31
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.
27 oct. 2006 à 15:47
Ton code m'a sauvé la vie ...
Surtout par sa facilité d'intégration
4 déc. 2005 à 10:28
20 nov. 2005 à 19:33
do
doevents
shellwait "notepad.exe"
loop
Comme sa on peut pas fermer le bloc-note ...
Tres bonne source je met 10/10
20 nov. 2005 à 15:57
28 juil. 2005 à 21:12
j'ai mis 20, ca va?
18 juil. 2005 à 08:12
Christophe R.
16 juil. 2005 à 17:02
10 févr. 2005 à 20:24
2 févr. 2005 à 23:19
2 févr. 2005 à 16:48
9 nov. 2004 à 09:58
Un petit témoignage...
Sous XP PACK2 VBA Office 2003 et Win 98 SE avec MVBStudio.
ShellWait "Command.com /c dir /b /o-d c:\windows\*.txt > c:\liste.TXT"
' Mettre dans un fichier Liste.txt le non de tous les fichiers *.txt se trouvant dans le repertoire windows et les trier du plus recent au plus ancien.
ShellWait fonctionne trés bien. je m'en sert pour remplir une ListBox.
Merci.
5 nov. 2004 à 16:26
Non je suis sous XP, j'ai éssayé de remplacé par :>, mais maintenant j'ai une erreur : ""c:\*.*:" n'est pas un périphérqiue reconnu.
Fichier introuvable""......
:-(
5 nov. 2004 à 13:05
Exemple : ShellWait "cmd.exe /c dir c:\*.*>c:\DirC.txt"
Les 4 caractères > doivent être remplacés par un seul : le signe "est plus grand que"
J'essaie encore : le signe >
5 nov. 2004 à 11:59
5 nov. 2004 à 10:39
Je suis très interresser par ta source!!
Je l'ai testée, mais j'ai une erreur dans cmd.exe "'gt n'est pas reconnu comme commande interne ou externe, un programme exécutable ou un fichier de commande"
Je suis un vrai débutant, donc j'ai fait un copier collé de ton code dans un module, et mis sur un bouton ShellWait "cmd.exe /c dir c:\*.*>C:\Docs\Norton.txt"
(J'ai creer un fichiers text avec le blocs note, contenant une commande pour lancer les parametres de norton internet "Norton.txt")
T'as une soluce?
Merci!
9 août 2004 à 08:58
ShellWait "dir c:\>""c:\tmp\toto.txt"""
7 août 2004 à 11:30
source très utile, merci.
je la trouve plus pratique que les prog de PROVB.
il est à noter toutefois qu'il faut faire attention à la syntaxe de la ligne de paramètres du style:
remplacer ShellWait "dir c:\>"c:\tmp\toto.txt""
par ShellWait "dir c:\>" & chr(34) "c:\tmp\toto.txt" & chr(34)
bonne continuation.
20 févr. 2004 à 15:40
30 sept. 2003 à 15:42
Fonction déja faite il y à longtemps, et de meilleur façon.
Va voir mes codes tu verras.
18 sept. 2003 à 14:08
Merci ! Et, donc, 12/10 :-) Bravo.
18 sept. 2003 à 13:41
Public Sub ShellWait(ByVal JobToDo As String)
Dim hProcess As Long, RetVal As Long
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(JobToDo, vbHide))
Do
GetExitCodeProcess hProcess, RetVal
DoEvents
Sleep 100
Loop While RetVal = STILL_ACTIVE
End Sub
18 sept. 2003 à 13:38
18 sept. 2003 à 13:33
Pourrais-tu me dire s'il est possible d'exécuter une commande avec ton ShellWait dans une fenêtre "invisible" (du style shell Commande, vbhide).
Je te mets 8/10... et 10/10 si tu peux me répondre ;-)
Merci !
18 sept. 2003 à 09:34
Bon ben ca fera 12/10 ;-}
17 sept. 2003 à 23:57
17 sept. 2003 à 23:44
Alors excusez-moi si dans l'exemple je parlais de CMD.EXE mais je suis XP depuis un moment (et même NT 4.0 et même 3.51, avant) alors j'ai perdu le réflexe du "command.com" depuis !!!
17 sept. 2003 à 23:05
Sous Win9x, il suffit de remplacer
cmd.exe par command.com
et ça marche !
17 sept. 2003 à 20:28
Seul ennui, ça utilise une commande DOS, et surtout le CMD de 2k ou XP, donc sous Win95/98 (et NT ?) ça ne fonctionne pas...
Mais c'est simple d'utilisation, c'est l'avantage !!