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
merci d'avance pour votre réponse ou toute autre suggestion.
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
dadaapocalypse
Partager