Lister un fichier 7z via le paramètre "l" [Résolu]

Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Dernière intervention
24 juin 2018
- 7 janv. 2015 à 16:48 - Dernière réponse :
Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Dernière intervention
24 juin 2018
- 11 janv. 2015 à 11:42
Bonjour le Forum,

Via une application HTA, après création de x fichiers, je créé :
- un zip contenant un fichier et un répertoire

strCommand = "" & cstFileExe7z & " a " & cstPathRoot & "Consignes\Consignes_" & ListBoxDelta.Value & "_Delta" & ".7z" & Space(1) &_
cstPathRoot & "Consignes\" & cstListFile & Space(1) & objArrayList(8) & Chr(92) & cstConsignesFolder & ""

Set objShell = CreateObject("WScript.Shell")
objShell.Run strCommand,1

' Surveillance process 7za.exe
Call MonitoringProcess7z()
' Raffraichissement TEXTAREA HTA
Call UpdateScreen()

' Ecriture LOG Textarea
Call WriteLog("Fichier " & """" & cstPathRoot & "Consignes\Consignes_" &_
ListBoxDelta.Value & "_Delta" & ".7z" & """" & " généré", "blue")

' Raffraichissement HTA Textarea
Call UpdateScreen()



- maintenant je souhaite contrôler le fichier 7z généré et afficher son contenu dans ma textarea sans faire une extraction du zip.

J'ai essayé :

strCommand = "" & cstFileExe7z & " l " & cstPathRoot & "Consignes\Consignes_" & ListBoxDelta.Value & "_Delta" & ".7z" & Space(1) &_
" > " & cstPathRoot & "Consignes\" & "CheckFile7z.txt" & ""
objShell.Run strCommand,1

' Surveillance process 7za.exe
Call MonitoringProcess7z()

' Raffraichissement HTA Textarea
Call UpdateScreen()


Avec le HTA, la console cmd (strCommand,1 pour visible) m'affiche bien le contenu du zip mais ne l'écrit pas dans le fichier CheckFile7z.txt.
En ligne de commande, la commande me créée bien le fichier CheckFile7z.txt mais nenni par le script.
Je suppose qu'il faut employer le stdout de WScript.Shell (.Exec("%comspec% ...) et .StdOut.AtEndOfStream pour arriver à mes fins.
Je n'ai pas trouvé d'exemples concrets.

Merci de vos propositions/questions.

jean-marc
Afficher la suite 

Votre réponse

1 réponse

Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Dernière intervention
24 juin 2018
- 11 janv. 2015 à 11:42
0
Merci
Bonjour le Forum,

Problème résolu.

Const cstFileExe7z = "D:\za.exe"
Const cstFile7z = "D:\Test.7z"

WScript.Echo CreateObject("WScript.Shell").Exec("" & cstFileExe7z & " l " & cstFile7z & "").StdOut.ReadAll
Commenter la réponse de cs_JMO

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.