Bonjour,
J'ai adapté un code trouvé sur le forum pour décompresser un fichier tar.gz.
Le programme ne fait que la copie mais pas la décompression vers le dossier de destination.
NB: ce code fonctionne bien pour les fichiers zippés mais pas les fichiers tar.gz

voici le
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
 
Option Explicit 
Dim FSO  
Dim objFSO
Dim oApp  
Dim DossierTar
Dim DossierDeTar 
Dim objFolder1
Dim objFolder2
 
DossierTar = "C:\Dossier\Package\fichier.tar.gz" 
DossierDeTar = "C:\DossierDecompresse" 
Set FSO = CreateObject("Scripting.FileSystemObject" ) 
objFSO=FSO.GetFolder("C:\Livraison1\Package")
 
Set oApp = CreateObject("Shell.Application")
set objFolder1=oApp.Namespace("C:\Dossier\Package")
set objFolder2=oApp.Namespace("C:\DossierDecompresse")
objFolder2.CopyHere objFolder1.items
merci d'avance pour votre réponse ou toute autre suggestion.

dadaapocalypse