Gestion erreur VBS 7zip

**tequillaman** · 01/09/2017, 13h51

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.

**ProgElecT** · 01/09/2017, 15h32

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
'..........

**tequillaman** · 01/09/2017, 15h49

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.

**ProgElecT** · 01/09/2017, 17h15

Envoyé par tequillaman

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.

**ericlm128** · 02/09/2017, 02h30

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

**tequillaman** · 04/09/2017, 10h08

Envoyé par ericlm128

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?

**ProgElecT** · 04/09/2017, 10h29

Envoyé par tequillaman

.....
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é.

**tequillaman** · 04/09/2017, 10h38

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.

**tequillaman** · 04/09/2017, 14h15

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

Nom : Sans titre.png
Affichages : 899
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.

**ericlm128** · 05/09/2017, 09h05

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

**tequillaman** · 05/09/2017, 10h37

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?

**ericlm128** · 05/09/2017, 11h10

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

**tequillaman** · 05/09/2017, 16h14

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

**ericlm128** · 05/09/2017, 17h16

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é ?

**tequillaman** · 19/09/2017, 14h58

Envoyé par ericlm128

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.

Gestion erreur VBS 7zip

VBScript

Discussions similaires

Partager

Partager