1. #1
    Membre du Club Avatar de tequillaman
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    avril 2016
    Messages
    98
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nièvre (Bourgogne)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : avril 2016
    Messages : 98
    Points : 56
    Points
    56

    Par défaut Gestion erreur VBS 7zip

    Bonjour à tous,
    J'ai créé un script pour faire un gros traitement.
    Dans ma gestion d'erreur, je veux envoyer un mail en cas de problème.
    Jusque là, pas de soucis.
    Mon soucis viens de la partie de code qui va zipper mon dossier via 7zip. Il fait bien le traitement mais mon script continu les étapes même si la compression n'est pas fini. Du coup, la gestion d'erreur ne se fait pas correctement.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    'ZIP du dossier
    On Error Resume Next
     
    LogFile.writeline(now & ": Début de la compression du fichier")
    LogFile.writeline("")
    WScript.Echo(now & ": Début de la compression du fichier")
     
    Dim CheminDossierAZip
    CheminDossierAZip = "C:\Users\xxxxx\" & DateRemaniee
    Dim CheminDest
    CheminDest = "C:\Users\xxxxx\Desktop\Nouveau dossier\7zip\"
    Dim ObjShell 
    Set ObjShell = CreateObject("WScript.shell") 
    ObjShell.Exec "C:\Program Files\7-Zip\7z.exe a -r " & chr(34) & CheminDest & DateRemaniee & chr(34) & " " & chr(34) & CheminDossierAZip   'lance bien la compression puis passe à l'étape calcul j-3 alors que la compression n'est pas finie
     
    If Err.Number <> 0 Then
     LogFile.writeline(now & ": Erreur lors de la compression du fichier")
     LogFile.writeline ""
      WScript.echo (now & ": Erreur lors de la compression du fichier")
     
    Corps1 = "Une erreur est survenue lors de la compression du dossier " & DateRemaniee & "."
    Corps2 = "Ceci est un message automatique. Merci de ne pas répondre."
    PJ = "C:\Users\xxxxx\Desktop\Nouveau dossier\Logs\" & Dateremaniee & ".txt"
     call Email("xxxxxxx","Erreur de sauvegarde perturbo","xxxxx",Corps1 & chr(13) & chr(13) & Corps2, PJ)
     Err.Clear
     wscript.Quit
    End If
     
    On Error Goto 0
     
    ' Calcule jour -3 pour suppression dossier
    YesterdayDate = now - 3
    annee = Right(String(2, "0") & Year(YesterdayDate), 2)
    mois = Right(String(2, "0") & Month(YesterdayDate), 2)
    jour = Right(String(2, "0") & Day(YesterdayDate), 2)
    DateRemaniee = "" & annee & mois & jour
    Comment faire pour qu'il soit en attente d'un retour de 7zip? Si c'est possible bien sur.

  2. #2
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 140
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 140
    Points : 8 337
    Points
    8 337

    Par défaut

    Salut

    Fonction de surveillance d'un process en court d'execution, True si en cours False terminé.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    Function Proccess(nomfichier)
    dim objWMIService
    dim ProcessEncours
    dim strComputer
     
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set ProcessEncours = objWMIService.ExecQuery ("Select name from Win32_Process where name ='" & nomfichier & "'")
    Set objWMIService = NotHing
     
    If ProcessEncours.Count <> 0 Then Proccess = True Else Proccess = False
     
    Set ProcessEncours = NotHing
     
    End Function
    Son utilisation (lignes 16 à 18):
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    'ZIP du dossier
    On Error Resume Next
     
    LogFile.writeline(now & ": Début de la compression du fichier")
    LogFile.writeline("")
    WScript.Echo(now & ": Début de la compression du fichier")
     
    Dim CheminDossierAZip
    CheminDossierAZip = "C:\Users\xxxxx\" & DateRemaniee
    Dim CheminDest
    CheminDest = "C:\Users\xxxxx\Desktop\Nouveau dossier\7zip\"
    Dim ObjShell 
    Set ObjShell = CreateObject("WScript.shell") 
    ObjShell.Exec "C:\Program Files\7-Zip\7z.exe a -r " & chr(34) & CheminDest & DateRemaniee & chr(34) & " " & chr(34) & CheminDossierAZip   'lance bien la compression puis passe à l'étape calcul j-3 alors que la compression n'est pas finie
     
    Do While Proccess("7z.exe") = True 'boucle tant que l’exécutable n'est pas terminé/fermé
        Wscript.Sleep 100 'attente de 0.1Sc
    loop
     
    If Err.Number <> 0 Then
    '..........
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  3. #3
    Membre du Club Avatar de tequillaman
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    avril 2016
    Messages
    98
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nièvre (Bourgogne)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : avril 2016
    Messages : 98
    Points : 56
    Points
    56

    Par défaut

    Merci pour ta réponse.
    Le soucis, c'est que je ne sais pas si la compression c'est passé correctement ou si une erreur est survenue.
    Mais bien déjà pour que mon script ne se finisse pas avant.

  4. #4
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 140
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 140
    Points : 8 337
    Points
    8 337

    Par défaut

    Citation Envoyé par tequillaman Voir le message
    Merci pour ta réponse.
    Le soucis, c'est que je ne sais pas si la compression c'est passé correctement ou si une erreur est survenue.
    ......
    une fois sortie de la boucle Do....Loop, peut être vérifier si le ficher compressé existe et s'il à un poids non égal à 0 octet.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Function ZipOk(filespec)
        Dim fso, f, poids
        ZipOk = False
     
        Set fso = CreateObject("Scripting.FileSystemObject")
        If (fso.FileExists(filespec)) Then
            Set f = fso.GetFile(filespec)
            poids = f.Size
            Set f = Nothing
            If poids <> 0 Then ZipOk = True
        End If
        Set fso = Nothing
    End Function
    En changeant If Err.Number <> 0 Then part If Err.Number <> 0 Or ZipOk(CheminDest & "FichierZiper.zip") = False Then tu auras déjà pas mal de chance d'avoir géré la chose.
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  5. #5
    Membre chevronné

    Homme Profil pro
    Responsable déploiement (SCCM, AirWatch, AMP)
    Inscrit en
    juillet 2014
    Messages
    1 100
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Responsable déploiement (SCCM, AirWatch, AMP)
    Secteur : Transports

    Informations forums :
    Inscription : juillet 2014
    Messages : 1 100
    Points : 2 049
    Points
    2 049

    Par défaut

    Comme d'habitude, pour fait de la compression/décompression en ligne via 7-zip, je conseillerai d'utiliser l'outil fait pour cela 7za.exe

    http://www.7-zip.org/download.html

  6. #6
    Membre du Club Avatar de tequillaman
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    avril 2016
    Messages
    98
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nièvre (Bourgogne)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : avril 2016
    Messages : 98
    Points : 56
    Points
    56

    Par défaut

    Citation Envoyé par ericlm128 Voir le message
    Comme d'habitude, pour fait de la compression/décompression en ligne via 7-zip, je conseillerai d'utiliser l'outil fait pour cela 7za.exe

    http://www.7-zip.org/download.html
    Merci pour l'info mais je en connais pas du tout et je n'ai pas vu de bon commentaire dessus ni sur l'utilisation, ni sur la sécurité. Du coup, je préfère m'en passer.


    Merci ProgElecT je vais utiliser ta solution en ajoutant un test d'ouverture et de fermeture du ZIP comme sa, je serais certain qu'il est terminé.
    Sauf erreur de ma part, si le zip ne se termine pas correctement, on ne peut pas l'ouvrir. VRAI?

  7. #7
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 140
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 140
    Points : 8 337
    Points
    8 337

    Par défaut

    Citation Envoyé par tequillaman Voir le message
    .....
    Sauf erreur de ma part, si le zip ne se termine pas correctement, on ne peut pas l'ouvrir. VRAI?
    Au moment de tentative d'ouverture, une fenêtre alerte d'erreur est signifié, s'il est vide, un message est aussi signifié.
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  8. #8
    Membre du Club Avatar de tequillaman
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    avril 2016
    Messages
    98
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nièvre (Bourgogne)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : avril 2016
    Messages : 98
    Points : 56
    Points
    56

    Par défaut

    Cool merci
    Du coup, en tentant de l'ouvrir je saurais si le zip c'est bien passé.
    + ton code pour attendre que le process se termine je pense palier à tout.

  9. #9
    Membre du Club Avatar de tequillaman
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    avril 2016
    Messages
    98
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nièvre (Bourgogne)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : avril 2016
    Messages : 98
    Points : 56
    Points
    56

    Par défaut

    Re,
    Finalement je bug toujours.
    J'ai trouvé comment vérifier l'intégrité d'un fichier 7z

    Nom : Sans titre.png
Affichages : 39
Taille : 66,2 Ko
    je joint une image de se que je tape directement dans une fenêtre DOS et qui fonctionne. je voudrais le faire dans mon vbs mais je n'arrive pas à mettre toutes les lignes de commandes pour qu'elles s’exécutent à la suite dans la même fenêtre DOS.

  10. #10
    Membre chevronné

    Homme Profil pro
    Responsable déploiement (SCCM, AirWatch, AMP)
    Inscrit en
    juillet 2014
    Messages
    1 100
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Responsable déploiement (SCCM, AirWatch, AMP)
    Secteur : Transports

    Informations forums :
    Inscription : juillet 2014
    Messages : 1 100
    Points : 2 049
    Points
    2 049

    Par défaut

    Je croit que Set ObjShell = CreateObject("WScript.shell") n'est pas nécessaire dans la fenêtre dos.

  11. #11
    Membre du Club Avatar de tequillaman
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    avril 2016
    Messages
    98
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nièvre (Bourgogne)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : avril 2016
    Messages : 98
    Points : 56
    Points
    56

    Par défaut

    C'est bien la cas. J'ai mis mon path directement en dur sur le poste pour éviter d'avoir plusieurs lignes de commandes à saisir.
    Par contre, comment écrire les lignes qui s'affichent dans ma fenêtre DOS (résultats de ma commande) dans un fichier pour pouvoir traiter l'info?

  12. #12
    Membre chevronné

    Homme Profil pro
    Responsable déploiement (SCCM, AirWatch, AMP)
    Inscrit en
    juillet 2014
    Messages
    1 100
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Responsable déploiement (SCCM, AirWatch, AMP)
    Secteur : Transports

    Informations forums :
    Inscription : juillet 2014
    Messages : 1 100
    Points : 2 049
    Points
    2 049

    Par défaut

    Voici la composition de mon dossier de travail
    7za.exe
    BAD.7z
    Check.vbs
    GOOD.7z
    BAD.7z est une archive corrompu
    GOOD.7z est une archive intègre

    Voici Check.vbs
    Code vbs : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
     
    strFolder = objFSO.GetParentFolderName(WScript.ScriptFullName)
     
    Path7za = """" & strFolder & "\7za.exe"""
    Good = """" & strFolder & "\GOOD.7z"""
    Bad = """" & strFolder & "\BAD.7z"""
     
    ' Code retour 7za.exe (http://7zip.bugaco.com/7zip/MANUAL/exit_codes.htm)
    ' 0		No error
    ' 1		Warning (Non fatal error(s)). For example, one or more files were locked by some other application, so they were not compressed.
    ' 2		Fatal error
     '7		Command line error
     '8		Not enough memory for operation
     '255	User stopped the process
     
    ' ret = 0 L'archive est intègre
    ret = WshShell.Run(Path7za & " t " & Good, 0, true)
    msgbox Good & vbcrlf & ret
     
    ' ret = 2 L'archive est corrompu
    ret = WshShell.Run(Path7za & " t " & Bad, 0, true)
    msgbox Bad & vbcrlf & ret
     
    ' Les autres codes retours signifient une erreur lors du traitement

    Edit : Projet en pièce jointe
    Fichiers attachés Fichiers attachés

  13. #13
    Membre du Club Avatar de tequillaman
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    avril 2016
    Messages
    98
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nièvre (Bourgogne)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : avril 2016
    Messages : 98
    Points : 56
    Points
    56

    Par défaut

    Me revoilou,
    J'ai trouvé une solution grâce en partie à votre aide

    Pour ceux qui auraient besoins voici la partie de mon code avec la gestion d'erreur par mail (les fonctions n'apparaissent pas).
    J'ai également inscrit en dur sur le PC le Path de 7z

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    'ZIP du dossier
    On Error Resume Next
     	LogFile.writeline(now & ": Début de la compression du dossier")
    	LogFile.writeline("")
    	WScript.Echo(now & ": Début de la compression du dossier")
    	Dim CheminDossierAZip
    	CheminDossierAZip = "C:\Users\xxxxx\Desktop\Nouveau dossier\" & DateRemaniee
    	Dim CheminDest
    	CheminDest = "C:\Users\xxxxx\Desktop\Nouveau dossier\7zip\"
    	Dim ObjShell 
    	Set ObjShell = CreateObject("WScript.shell") 
    	ObjShell.run "7z a -r " & chr(34) & CheminDest & DateRemaniee & chr(34) & " " & chr(34) & CheminDossierAZip
     
    	Do While Proccess("7z.exe") = True 'boucle tant que l’exécutable n'est pas terminé/fermé
    		Wscript.Sleep 100 'attente de 0.1Sc
    		Wscript.echo "zip en cours"
    	loop
    	If Err.Number <> 0 Or ZipOk(CheminDest & DateRemaniee & ".7z") = False Then 
    		LogFile.writeline(now & ": Erreur lors de la compression du dossier")
    		LogFile.writeline ""
    		WScript.echo (now & ": Erreur lors de la compression du dossier")
    		Corps1 = "Une erreur est survenue lors de la compression du dossier " & DateRemaniee & "."
    		Corps2 = "Ceci est un message automatique. Merci de ne pas répondre."
    		PJ = "C:\Users\xxxxx\Desktop\Nouveau dossier\Logs\" & Dateremaniee & ".txt"
    		call Email("xxxxx@xxx.com","Erreur de sauvegarde perturbo","serveurmail",Corps1 & chr(13) & chr(13) & Corps2, PJ)
    		Err.Clear
    		wscript.Quit
    	End If
    	LogFile.writeline(now & ": Compression terminée")
    	LogFile.writeline("")
    	wscript.echo "Compression terminée"
    On Error Goto 0
     
    'Vérification de l'intégrité du ZIP
    LogFile.writeline(now & ": Vérification de l'intégrité du ZIP")
    LogFile.writeline("")
    wscript.echo "Vérification de l'intégrité du ZIP"
    dim commande1
    commande1 = "cmd /c 7z t C:\Users\xxxxx\Desktop\Matheo.7z -r"
    'Copie du Rapport
    ObjShell.run commande1 & " > C:\Users\xxxxx\Desktop\integrite_zip.txt"
    WScript.Sleep 5000
    'recherche mot dans fichier rapport
    dim mot
    mot = "Everything is Ok" 
    cpt = 0
    Set fso = CreateObject("Scripting.FileSystemObject") 
    set ficlec = fso.OpenTextFile("C:\Users\xxxxx\Desktop\integrite_zip.txt", 1, true)
    do until ficlec.AtEndOfStream 
    	chaine = ficlec.readline() 
    	if instr(1,chaine, mot) > 0 then
    		cpt = cpt+1
    	end if
    loop
     
    ficlec.close 
     
    if cpt = "0" then
    	LogFile.writeline(now & ": L'intégralité du Zip n'est pas confirmée, merci de Zipper manuellement le dossier")
    	LogFile.writeline ""
    	WScript.echo (now & ": L'intégralité du Zip n'est pas confirmée, merci de Zipper manuellement le dossier")
    	Corps1 = "L'intégralité du Zip n'est pas confirmée, merci de Zipper manuellement le dossier " & DateRemaniee & "."
    	Corps2 = "Ceci est un message automatique. Merci de ne pas répondre."
    	PJ = "C:\Users\xxxxx\Desktop\Nouveau dossier\Logs\" & Dateremaniee & ".txt"
    	call Email("xxxxxx@xxxxxx.com","Erreur de sauvegarde perturbo","serveurmail",Corps1 & chr(13) & chr(13) & Corps2, PJ)
    	Err.Clear
    	wscript.Quit
    	else
    	LogFile.writeline(now & ": L'intégralité du Zip est confirmée")
    	LogFile.writeline ""
    	WScript.echo (now & ": L'intégralité du Zip est confirmée")
    end if
     
    'Suppression du rapport du zip
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If FSO.FileExists("C:\Users\xxxxx\Desktop\integrite_zip.txt") Then
    	FSO.DeleteFile ("C:\Users\xxxxxx\Desktop\integrite_zip.txt")
    End If

  14. #14
    Membre chevronné

    Homme Profil pro
    Responsable déploiement (SCCM, AirWatch, AMP)
    Inscrit en
    juillet 2014
    Messages
    1 100
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Responsable déploiement (SCCM, AirWatch, AMP)
    Secteur : Transports

    Informations forums :
    Inscription : juillet 2014
    Messages : 1 100
    Points : 2 049
    Points
    2 049

    Par défaut

    Comprend pas, tu préfère :
    - inscrire dans le path en dur du poste le dossier de 7z plutôt que d'utiliser une version portable.
    - rediriger la sortie standard du programme vers un fichier temporaire, pour le relire (et le supprimer) ? plutôt que d'utiliser les codes retour.
    - lancer un programme, faire une boucle pour vérifier sa présence plutôt que de lui dire d'attendre la fin de son exécution (https://ss64.com/vb/run.html bWaitOnReturn)

    Pourquoi faire simple et fiable quand on peux faire compliqué ?

  15. #15
    Membre du Club Avatar de tequillaman
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    avril 2016
    Messages
    98
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nièvre (Bourgogne)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : avril 2016
    Messages : 98
    Points : 56
    Points
    56

    Par défaut

    Citation Envoyé par ericlm128 Voir le message
    Comprend pas, tu préfère :
    - inscrire dans le path en dur du poste le dossier de 7z plutôt que d'utiliser une version portable.
    - rediriger la sortie standard du programme vers un fichier temporaire, pour le relire (et le supprimer) ? plutôt que d'utiliser les codes retour.
    - lancer un programme, faire une boucle pour vérifier sa présence plutôt que de lui dire d'attendre la fin de son exécution (https://ss64.com/vb/run.html bWaitOnReturn)

    Pourquoi faire simple et fiable quand on peux faire compliqué ?
    Re,
    Effectivement, j'ai fini par utiliser ta solution car le suivi de processus provoque des erreurs car il tourne des fois en tâche de fond.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Gestion erreur SQL Serveur dans un Script VBS
    Par jayan dans le forum VBScript
    Réponses: 3
    Dernier message: 08/02/2007, 15h06
  2. Aide sur gestion erreur
    Par Virgile59 dans le forum Access
    Réponses: 6
    Dernier message: 05/01/2006, 19h05
  3. [Formulaire] Gestion erreur saisie d'une requête
    Par b_steph_2 dans le forum IHM
    Réponses: 6
    Dernier message: 05/01/2006, 17h40
  4. [Sécurité] gestion erreur login mdp
    Par oceane751 dans le forum Sessions
    Réponses: 19
    Dernier message: 03/11/2005, 12h58
  5. Question Basique Gestion Erreur VBA ...
    Par Le_Phasme dans le forum Access
    Réponses: 2
    Dernier message: 11/10/2005, 14h42

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo