Πώς να εξαγάγετε ένα αρχείο Zip με VBScript

Όταν η Microsoft κυκλοφόρησε την τρέχουσα γενιά της υποδοχής του Windows Script το 2002, διατίθενται για τους προγραμματιστές και διαχειριστές του συστήματος ένα ισχυρό και ευέλικτο περιβάλλον scripting . Σε συνδυασμό με ένα μοντέλο αντικειμένου προσβάσιμο σε WSH που επιτρέπει στους προγραμματιστές να αυτοματοποιήσει ορισμένες από τις ενσωματωμένες λειτουργίες του λειτουργικού συστήματος των Windows , VBScript , επίσης γνωστό ως Visual Basic Scripting Edition , μπορεί να εκτελέσει απλές εργασίες με λίγες γραμμές κώδικα . Επειδή τα Windows XP αφού έχει συμπεριληφθεί εγγενή υποστήριξη για τη συμπίεση και εξαγωγή αρχείων zip, ένα μικρό script VBScript μπορεί να εξαγάγει τα περιεχόμενα ενός αρχείου zip σε ένα φάκελο . Οδηγίες
Η

1 Κάντε κλικ στο κουμπί " Έναρξη " , " Όλα τα προγράμματα " , " εξαρτήματα " , " Σημειωματάριο" για να ανοίξετε το Windows Notepad . 2

αντιγραφή και επικόλληση τον παρακάτω κωδικό VBS στο παράθυρο του Notepad :

Λειτουργία Αποσυμπίεση ( strFileName , strFolderName )

Δημ. objshell

Δημ. objfso

« Δημιουργία Shell.Application έτσι μπορούμε να χρησιμοποιήσουμε το μέθοδος CopyHere

Set objshell = CreateObject ( " Shell.Application " )

« Δημιουργία FileSystemObject έτσι μπορούμε να χρησιμοποιήσουμε FolderExists και CreateFolder εάν είναι απαραίτητο

Set objfso = CreateObject ( " Scripting . FileSystemObject " )

« Δημιουργία φακέλου για να λάβετε τα αρχεία αν doesn 't υπάρχουν ήδη

Αν όχι objfso.FolderExists ( strFolderName ) Στη συνέχεια objfso.CreateFolder strFolderName

«Χρήση CopyHere να εξαγάγετε τα αρχεία

objshell.NameSpace ( strFolderName ) . CopyHere objshell.NameSpace ( strFileName ) . Αντικείμενα