how to unzip file using cmd ?

Question

0.00/5 (No votes)

See more:

I am new in VbScript , and i want to vbscript which will copy zip file and extract it.

i have used this code

VB

Sub ExtractFile(objFSO,lastImportDate,zipFilePath)
        DIM subFolderPath
	subFolderPath = "\developer\"
	DIM dumpFile
	dumpFile = "fichero.dump"
	Dim extractTo
	extractTo = "C:\DB importer - Copy\\db-backup-" 
	
	extractTo = extractTo + lastImportDate

	'If the extraction location does not exist create it.
	Set fso = CreateObject("Scripting.FileSystemObject")
	If NOT fso.FolderExists(extractTo) Then
	   fso.CreateFolder(extractTo)
	End If

	'Extract the contants of the zip file.
	set objShell = CreateObject("Shell.Application")
	set FilesInZip=objShell.NameSpace(zipFilePath).items //error
	objShell.NameSpace(extractTo).CopyHere(FilesInZip)
	Set fso = Nothing
	Set objShell = Nothing
End Sub

but its giving error at // error
Object required: 'objShell.NameSpace(...)'

This vbscript should run on any pc.

If any have solution , reply as soon as possible.
Thank you.

Posted 30-Oct-14 18:29pm

Bhagyashree Chaudhari - Member 10473634

Add a Solution

2 solutions

Solution 1

view this link for reference Easily-zip-unzip-files

Posted 30-Oct-14 19:58pm

vJay Yadav

Comments

Bhagyashree Chaudhari - Member 10473634 31-Oct-14 2:05am

Thank you for reply.
I have folder called TestFolder in that i have test.vbs and AbcFolder and in AbcFolder i have zipFile.zip.
When i run the .vbs file from desktop and did not set the path for
"extractTo" eg This will be run on any pc , so this file will be run from any where so just wrote extractTo = AbcFolder\zipFile.zip
so when i run it from desktop its run and create folder called zipFile in AbcFolder but not copying contain of .zip file and giving same error as i got before
Object required: 'objShell.NameSpace(...)'.
If you have any other solution let me know.
Thank you.

Add a Solution

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Bhagyashree Chaudhari - Member 10473634 · Accepted Answer · 2014-11-03T18:54:00

XML

Here i just do these
<pre lang="vb">
Dim objShell
set objShell = CreateObject("Shell.Application")
objShell.NameSpace(extractTo).CopyHere objShell.NameSpace(extractFrom).Items
</pre>

instead of these
<pre lang="vb">
set objShell = CreateObject("Shell.Application")
set FilesInZip=objShell.NameSpace(zipFilePath).items //error
objShell.NameSpace(extractTo).CopyHere(FilesInZip)
</pre>

and add "\" in extractTo path.
Thank you.

how to unzip file using cmd ?

2 solutions

Solution 1

Solution 3

Add your solution here

Preview 0

how to unzip file using cmd ?

2 solutions

Solution 1

Solution 3

Add your solution here

Preview 0

Existing Members

...or Join us