Récupérer %ErrorLevel% d'un process DOS dans VB

Version imprimable

15/06/2007, 10h05
Phifi

Récupérer %ErrorLevel% d'un process DOS dans VB

Bonjour,

voilà mon problème :
- mon application crée un batch pour lancer un programme (compresseur/décompresseur) en ligne de commande
- mon appli lance ensuite le batch via une fonction Shell
- ce batch renvoie un numéro d'erreur (%ErrorLevel%) qui me permet de savoir si la compression/décompression s'est bien terminée (je l'affiche pour l'instant dans ma fenêtre DOS)

- ma question est : comment faire remonter ce numéro dans mon appli VB ?

J'ai trouvé une solution ici-même, créer un fichier de résultat à partir du batch et le lire par la suite (merci ProgElect :) ), mais je me demandais s'il n'était pas possible de récupérer l'info à la volée, sans fichier intermédiaire, peut-être à partir de l'ID renvoyé par le Shell... mais comme les API et moi, ça fait 4, je n'ai aucune idée de la marche à suivre.
Si vous avez une piste...

En vous remerquiant !
15/06/2007, 10h21
Phifi

Je tiens une piste avec GetExitCodeProcess, je creuse, je creuse...
15/06/2007, 10h23
OhMonBato

Previens nous si tu trouves du pétrole. :mrgreen:

A moi les pétro-dollars !

Et voilà, on passe sa ligne de commande et on récupère le n° d'error (%ErrorLevel%)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
Option Explicit
 
Private Declare Function OpenProcess Lib "kernel32" _
  (ByVal dwDesiredAccess As Long, _
   ByVal bInheritHandle As Long, _
   ByVal dwProcessId As Long) As Long
 
Private Declare Function GetExitCodeProcess Lib "kernel32" _
  (ByVal hProcess As Long, lpExitCode As Long) As Long
 
Private Declare Function CloseHandle Lib "kernel32" _
  (ByVal hObject As Long) As Long
 
Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const STATUS_PENDING = &H103&
 
Private Function GetExitCode(cmdline As String, WindowStyle As VbAppWinStyle) As Long
 
    Dim hProcess As Long
    Dim ProcessId As Long
    Dim exitCode As Long
    '
    On Error GoTo Errshell
    '
    ProcessId = Shell(cmdline, WindowStyle)
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessId)
    '
    Do
        Call GetExitCodeProcess(hProcess, exitCode)
        DoEvents
 
    Loop While exitCode = STATUS_PENDING
    '
    GetExitCode = exitCode
    '
    CloseHandle hProcess
    '
    Exit Function
    '
Errshell:
    MsgBox Error(Err), 16, "Erreur"
    Exit Function
    '
End Function

Sources adaptées par Bibi (j'ai pas fait grand chose, je dois dire =)
1) VB.NET
2) Patrick MOIRE

Problème identique

Citation:
Envoyé par Phifi
A moi les pétro-dollars !

Et voilà, on passe sa ligne de commande et on récupère le n° d'error (%ErrorLevel%)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 Option Explicit Private Declare Function OpenProcess Lib "kernel32" _ (ByVal dwDesiredAccess As Long, _ ByVal bInheritHandle As Long, _ ByVal dwProcessId As Long) As Long Private Declare Function GetExitCodeProcess Lib "kernel32" _ (ByVal hProcess As Long, lpExitCode As Long) As Long Private Declare Function CloseHandle Lib "kernel32" _ (ByVal hObject As Long) As Long Private Const PROCESS_QUERY_INFORMATION = &H400 Private Const STATUS_PENDING = &H103& Private Function GetExitCode(cmdline As String, WindowStyle As VbAppWinStyle) As Long Dim hProcess As Long Dim ProcessId As Long Dim exitCode As Long ' On Error GoTo Errshell ' ProcessId = Shell(cmdline, WindowStyle) hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessId) ' Do Call GetExitCodeProcess(hProcess, exitCode) DoEvents Loop While exitCode = STATUS_PENDING ' GetExitCode = exitCode ' CloseHandle hProcess ' Exit Function ' Errshell: MsgBox Error(Err), 16, "Erreur" Exit Function ' End Function
Sources adaptées par Bibi (j'ai pas fait grand chose, je dois dire =)
1) VB.NET
2) Patrick MOIRE
Bonsoir à tous,

j'ai voulu utiliser ce code pour mon problème étant très similaire mais cela ne fonctionne pas, la fonction me retourne 0 alors qu'elle devrait me retourner 2.

Dans mon cas c'est lorsque j'exécute la commande suivante :

Code:

"C:\program files\7-Zip\7z.exe" t "chemin_de_mon_archive.rar"

Qui permet de tester l'intégrité d'une archive, dans le cas d'une archive corrompue cela devrait me retourner 2 mais là j'ai toujours 0. Si je l'exécute en DOS directement et que je retourne mon %errorlevel% j'ai bien 2, mais par la fonction ci dessus en VBA, cela ne fonctionne pas.

Des idées ??

Merci d'avance

20/11/2013, 12h06
darwin345

Personne ??