Dézippage incorrecte avec run 7za.exe

Bonjour,

J'ai un souci avec la commande wshshell.Run qui lance un programme 7za.exe avec des paramétres (mot de passe, destination)

je met un fichier .zip dans le répertoire adequoit ,et quand je lance mon vbs j'ai trois fichiers .csv ,et le script ne continu pas son traitement, dans le gestionnaire de tache j'ai toujours le 7za.exe et le wscript.exe en cours d’exécution,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

For Each oFile In oFolder.files If Right(oFile.Name,3) = "zip" Then   Set wshshell = CreateObject("WScript.Shell")   wshshell.Run "E:\BREF_Dataload\Import\AirPlus\OUTIL\7za.exe x " & qq(zipfile) & " -p" & qq(password) & " -o" & qq(outputfile), 0, true counter = counter + 1 Exit For   End If Next

---

ces trois fichiers csv sont déjà traités dans un lancement ancien et je ne sais pas comment ni pourquoi mes objet se rappel toujours de ces trois fichiers
J'ai essayé de faire : Set wshshell = Nothing à l'intérieur de la boucle mais ça n'a pas marché

aidez moi s'il vous plait

Bonjour,

commencer déjà par vérifier en commandes manuelles …

___________________________________________________________________________________________________________

Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Merci pour votre réponse,

en fait le script fonctionne correctement dans autre serveur ce problème n'est reproductible que dans notre serveur de prod.
donc je pense que cela a une relation avec l’environnement de l’exécution.

un truc de mémoire peut être parce que ça garde les noms des anciens fichiers!

bonjour,
une question et une remarque :
1. que fait la fonction qq()
2. ta boucle balaye le répertoire oFolder à la recherche de fichiers portant l'extension zip
mais tu alimentes 7za avec une variable zipfile codée en dur....... :calim2:

Bonjour
la fonction qq colle des ""

Code:

---

1 2 3 4

Function qq(str) qq = Chr(34) & str & Chr(34) End Function

---

ce syntaxe permet un dézipage et quand je fais :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

For Each oFile In oFolder.files   If Right(oFile.Name,3) = "zip" Then   ' WScript.Echo "oFile.Name" & oFile.Name     Set wshshell = CreateObject("WScript.Shell") WScript.Echo "oFile.Name" & oFile.Name   'wshshell.Run "E:\BREF_Dataload\Import\AirPlus\OUTIL\7za.exe x " & qq(zipfile) & " -p" & qq(password) & " -o" & qq(outputfile), 0, true   wshshell.Run "E:\BREF_Dataload\Import\AirPlus\OUTIL\7za.exe x " & qq(oFile.Name) & " -p" & qq(password) & " -o" & qq(outputfile), 0, true   WScript.Echo "Apres de dézip" counter = counter + 1   Exit For   End If Next

---

j'ai commenté tout le reste du script en gardant juste ce bloque,il n'y a pas de dézippage en utilisant juste le file.name et je ne sais pas pourquoi :oops:
J'ai essayé aussi de lancer en commande manuelle en lançant juste :

Code:

---

1 2 3

7za.exe x "oFile.Name" -p "password" -o "outputfile"

---

cela me donne :
Error:
Incorrecte commande line

et la ligne :

Code:

---

WScript.Echo "oFile.Name" & oFile.Name

---

te renvoie le nom du fichier zip correct et complet ?

Vos questions me redirigent vers la solution :)

le file.name retourne effectivement le nom complet du fichier (nomFichier.csv.zip), mais je pense que le complet ici sera mieux le chemin entier + le nom du fichier
le dézipage est OK avec ce code :

Code:

---

1 2 3

wshshell.Run "E:\BREF_Dataload\Import\AirPlus\OUTIL\7za.exe x " & qq(zipfile &"\"& oFile.Name) & " -p" & qq(password) & " -o" & qq(outputfile), 0, true

---

mais ça bloque dans un autre endroit de mon script:

Code:

---

1 2 3

Set objExcel = CreateObject("Excel.Application" )

---

ça donne le message :

---------------------------
Windows Script Host
---------------------------
Script: \\SERVEUR\BREF_Dataload\Import\AirPlus\OUTIL\Script_ExtractionZip.vbs
Line: 92
Char: 9
Error: Permission denied: 'CreateObject'
Code: 800A0046
Source: Microsoft VBScript runtime error

---------------------------
OK
---------------------------

pourquoi ça ne marche plus , normalement après le dézipage on ouvre le fichier avec excel et on supprime une ligne

Je me suis connecté avec un autre compte ayant plus de droit et ça fonctionne parfaitement

Je vous remercie amplement :)

effectivement il fallait deviner que la variable zipfile
contenait en réalité le chemin du répertoire seul... :aie: