Extracting a ZIP File
Posted by admin - May 15, 2008 Articles, QTips, Yaron Assa, ZIP 0 0 Views : 254 Receive Updates For This Category
Article Tools
- Print this page
- Add Comment
- Send to Friend
- Last Updated on :
Jul 16, 2011
Windows XP has a built-in ZIP mechanism integrated into its file-system. We can easily use this to extract standard ZIP files with only a few commands:
1: 'Variable Definition
2: Dim sZIPFile
3: Dim sExtractToPath
4:
5: Dim oShell
6: Dim oZippedFiles
7:
8: 'Variable Initialization
9: sZIPFile="C:\Source.zip"
10: sExtractToPath="C:\Dest\InnerDir\"
11: Set oShell = CreateObject("Shell.Application")
12:
13: 'Get the contents of the ZIP archive
14: Set oZippedFiles=oShell.NameSpace(sZIPFile).items
15:
16: 'Copy the contents into the destination folder
17: oShell.NameSpace(sExtractToPath).CopyHere(oZippedFiles)
18:
19: 'Free Objects
20: Set oZippedFiles = Nothing
21: Set oShell = Nothing
22:
