Comment extraire un fichier zip avec VBScript

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é.