Décompresser un fichier tar.gz
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:
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
