Suppression de fichiers d'après une liste

Bonjour à tous,

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

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

Salut

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

Salut;

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

Code:

---

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.