|
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 les administrateurs système un environnement de scripting puissant et flexible. Combiné avec un modèle objet accessible dans WSH qui permet aux programmeurs d'automatiser une partie de la fonctionnalité intégrée du système d'exploitation Windows , VBScript , également connu sous Visual Basic Scripting Edition , peut effectuer des tâches simples avec seulement quelques lignes de code. Parce que Windows XP depuis a inclus un support natif pour la compression et l'extraction de fichiers zip , un petit script VBScript peut extraire le contenu d'un fichier zip dans un dossier. Instructions
1 Cliquez sur "Démarrer ", " Tous les programmes " , "Accessoires" , "Bloc-notes " pour ouvrir Windows Notepad .
2 Copiez et collez le code VBS suivant dans la fenêtre Bloc-notes:
fonction Unzip ( strFileName , strFolderName )
Dim objShell
Dim objFSO
'Créer Shell.Application afin que nous puissions utiliser l' CopyHere méthode
Set objShell = CreateObject (" Shell.Application " )
'Créer FileSystemObject afin que nous puissions utiliser FolderExists et CreateFolder si nécessaire
Set objFSO = CreateObject (" Scripting . FileSystemObject " )
« Créer un dossier pour recevoir des fichiers si elle n ' existent déjà
Si ce n'est pas objfso.FolderExists d' utilisation ( strFolderName ) Puis objfso.CreateFolder strFolderName
' CopyHere pour extraire les fichiers
objshell.NameSpace ( strFolderName ) . CopyHere objshell.NameSpace ( strFileName ) . Articles
Set objFSO = Nothing Set
objShell = Nothing
Fin de Fonction: 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 s'il n'existe pas déjà .
4 Cliquez sur "Fichier ", " Enregistrer sous" pour ouvrir la fenêtre Enregistrer sous de dialogue . Tapez " extractzip.vbs " (sans les guillemets) dans le champ "Nom de fichier" . Sélectionnez " Tous les fichiers ( * . *) " Dans le " Save as type" menu déroulant . Cliquez sur le bouton «Enregistrer» pour enregistrer le nouveau fichier VBS .
5 Cliquez sur "Démarrer ", " Documents" pour ouvrir une fenêtre de l'Explorateur Windows . Accédez au dossier où vous avez sauvegardé le fichier VBS à l'étape 4 . Double -cliquez sur extractzip.vbs pour exécuter le script et extraire le fichier zip dans le dossier spécifié .
|
