Discussion :

[ibtissamr]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

Bonjour,

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

___________________________________________________________________________________________________________

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

[ibtissamr]

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!

[omen999]

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

[ibtissamr]

Bonjour
la fonction qq colle des ""

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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
 
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
J'ai essayé aussi de lancer en commande manuelle en lançant juste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

cela me donne :
Error:
Incorrecte commande line

[omen999]

et la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

te renvoie le nom du fichier zip correct et complet ?

[ibtissamr]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ibtissamr]

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

Je vous remercie amplement

[omen999]

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