IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Suppression de fichiers d'après une liste


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau membre du Club
    Inscrit en
    Novembre 2010
    Messages
    4
    Détails du profil
    Informations forums :
    Inscription : Novembre 2010
    Messages : 4
    Par défaut Suppression de fichiers d'après une liste
    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

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    Juillet 2009
    Messages
    2 420
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 420
    Par défaut
    Salut

    Avec la classe Shell.Application, tu peux en principe y arriver
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  3. #3
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    Juillet 2009
    Messages
    2 420
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 420
    Par défaut
    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.
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

Discussions similaires

  1. suppression enregistrement a partir d une liste
    Par fsautejeau dans le forum Access
    Réponses: 9
    Dernier message: 05/07/2006, 15h28
  2. Réponses: 8
    Dernier message: 01/04/2006, 10h10
  3. Sélectionner un fichier à partir d'une liste filtrée
    Par Lenaick dans le forum C++Builder
    Réponses: 7
    Dernier message: 14/03/2006, 11h16
  4. Réponses: 9
    Dernier message: 14/10/2005, 13h46
  5. Pb d'affichage apres une liste déroulante
    Par loic.440 dans le forum ASP
    Réponses: 13
    Dernier message: 19/01/2005, 14h28

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo