Les partenaires publicitaires:

Comment extraire un fichier zip avec VBScript

Lorsque Microsoft a lancé la génération actuelle de son Windows Script Host en 2002, il a fait disponible pour les développeurs et administrateurs système un environnement de script puissant et flexible. Combiné avec un modèle accessible dans WSH objet qui permet aux programmeurs d'automatiser une partie de la fonctionnalité intégrée du système d'exploitation Windows, VBScript, aussi connu comme Visual Basic Scripting Edition, peuvent effectuer des tâches simples avec seulement quelques lignes de code. Parce que Windows XP a inclus depuis un support natif pour la compression et l'extraction de fichiers zip, un script VBScript court peut extraire le contenu d'un fichier zip dans un dossier.

Instructions

  1. Cliquez "Démarrer", "Tous les programmes", "Accessoires", "Bloc-notes" pour ouvrir le Bloc-notes de Windows.

  2. Copiez et collez le code VBS suivant dans la fenêtre du Bloc-notes:

    Fonction Décompressez (strFileName, strFolderName)

    Dim objShell

    Dim objFSO

    'Créer Shell.Application afin que nous puissions utiliser la méthode CopyHere



    Réglez objShell = CreateObject ("Shell.Application")

    'Créer FileSystemObject afin que nous puissions utiliser FolderExists et CreateFolder si nécessaire

    Réglez objFSO = CreateObject ("Scripting.FileSystemObject")

    «Créer un dossier pour recevoir des fichiers si elle n 'existe déjà




    Si non objfso.FolderExists (strFolderName) Puis objfso.CreateFolder strFolderName

    'Utilisation CopyHere pour extraire les fichiers

    objshell.NameSpace (strFolderName) .CopyHere objshell.NameSpace (strFileName) .Items

    Réglez objFSO = Nothing

    Réglez objShell = Nothing

    End Function

    Mettez votre propre nom de fichier zip et le nom du dossier dans les citations dans la ligne suivante

    Décompressez "C: Test Test.zip","C: Test Test"

  3. Modifier la dernière ligne de substituer votre propre nom de fichier zip et le nom du dossier pour les exemples donnés à l'intérieur des guillemets. Vous pouvez spécifier un dossier existant ou non. Le script va créer le dossier si elle existe pas déjà.

  4. Cliquez "Fichier", "Enregistrer sous" pour ouvrir la fenêtre de dialogue Enregistrer sous. Type "extractzip.vbs" (sans les guillemets) dans le "Nom de fichier" boîte. Sélectionner "Tous les fichiers (.)" du "Save as type" menu déroulant. Clique le "Sauvegarder" bouton pour enregistrer le nouveau fichier VBS.

  5. Cliquez "Démarrer", "Documents" pour ouvrir une fenêtre de l'Explorateur Windows. Accédez au dossier où vous avez enregistré le fichier VBS à l'étape 4. Double-clic extractzip.vbs pour exécuter le script et extraire le fichier zip dans le dossier spécifié.

» » » » Comment extraire un fichier zip avec VBScript