Hébergeur de fichiers indépendant

unzip.vbs

À propos

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: 2 jours
Statistiques
La présente page de téléchargement a été vue 351 fois depuis l'envoi du fichier
Page de téléchargement

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

Télécharger unzip.vbs

Télécharger le fichier (< 1 Ko)