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

Question

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

cs_JMO · Answer

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

Lister un fichier 7z via le paramètre "l"

1 réponse

Votre réponse

Discussions similaires