unzip.vbs

À propos du fichier

Type de fichier

Fichier VBS de < 1 Ko (text/plain)

Confidentialité

Fichier public, envoyé le 28 juin 2014 à 13:47, depuis l'adresse IP 82.235.x.x (France)

Sécurité

Ne contient aucun Virus ou Malware connus - Dernière vérification: 17 heures

Statistiques

La présente page de téléchargement a été vue 713 fois depuis l'envoi du fichier

Page de téléchargement

https://www.petit-fichier.fr/2014/06/28/unzip/   Copier

Aperçu du fichier

Function Unzip(strFileName,strFolderName)

Dim objshell

Dim objfso

' Create Shell.Application so we can use the CopyHere method

Set objshell = CreateObject("Shell.Application")

' Create FileSystemObject so we can use FolderExists and CreateFolder if necessary

Set objfso = CreateObject("Scripting.FileSystemObject")

' Create folder to receive files if it doesn' t already exist

If Not objfso.FolderExists(strFolderName) Then objfso.CreateFolder strFolderName

' Use CopyHere to extract files

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

Set objfso = Nothing

Set objshell = Nothing

End Function

'Put your own zip file name and folder name inside the quotes in the next line

Unzip "C:\install-modperso\minecraft.zip","C:\install-modperso\minecraft"

Partager le fichier unzip.vbs sur le Web et les réseaux sociaux:

Télécharger le fichier unzip.vbs