Discussion :

[Gardel]

Bonjour à tous,

pourriez-vous m'aidez SVP à effectuer la tâche suivante :

1/ Decompresser un fichier1 .zip contenant des fichiers: " 1.pdf; 2.pdf; 3.pdf "

2/ Ouvrir un fichier2.txt contenant une liste de nom de fichiers :
1.pdf; 2.pdf

3/ Supprimer dans le fichier dezippé(fichier1.zip) uniquement 1.pdf; 2.pdf qui sont lister dans le fichier2.txt , ne pas supprimer 3.pdf.

Merci à tous

[l_autodidacte]

Salut

Avec la classe Shell.Application, tu peux en principe y arriver

[l_autodidacte]

Salut;

Vu que personne n'a réagi, je propose un bout de code pour l'extraction; le reste devrait être facile :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Set oShell = CreateObject("Shell.Application")  
 Set oFolder = oShell.Namespace("c:\temp\") 
 Set colItems = oFolder.Items
  For Each oItem in colItems
    If Lcase(Right(OItem.Name,4))=".zip" then
       oItem.InvokeVerbEx("&Extraire vers " & Left(oItem.Name,len(oItem.Name)-4) & "\" )
        'oItem.InvokeVerbEx("E&xtraire Ici")
    End If
  Next

Pour décompresser dans le dossier où se trouve l'archive, on doit restaurer la ligne mise en commentaire et commenter la précédente, sinon, l'extraction se fera dans un dossier portant le nom de l'archive(sans l'extension .zip)
Dans un cas comme dans l'autre, j'ai Winrar qui gère mes archives.
Avec Winzip ou un autre archiveur, tu peux en principe t'en sortir.

IMPORTANT : Il est impératif de configurer Winrar ainsi :
Démarre Winrar puis menu Options => sous-menu Configuration...
Dans la nouvelle fenêtre, onglet Intégration et décoche la case Menus contextuels en cascade

Sans cette configuration, l'extraction n'aura pas lieu.