Forum Discussion
rajeshthomas
14 years agoContributor
Hi
Thanks for the Instant reply...
Regarding the Zip file extracting, i am able to extract it thru code but the problem is the zip has password. so when i run the script i get a window popup asking for password. How can modify the script to enter password automatically. I tried the methods i know, but when the password window pops out, the command to enter the password in the next line given my me is not reached. Please refer the attached screen shot for more clarity.
Script
'Extracting Secu_bottom
'Specifies the location of the zip file.
secu_Bottom_ZipFile="D:\Test\secu_Bottom.zip"
'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 contents of the zip file.
set objShell = CreateObject("Shell.Application")
set FilesInZip=objShell.NameSpace(secu_Bottom_ZipFile).items
objShell.NameSpace(ExtractTo).CopyHere(FilesInZip) -----> Here is where i get a window asking password.
Set fso = Nothing
Set objShell = Nothing
Thanks in Advance
Thanks for the Instant reply...
Regarding the Zip file extracting, i am able to extract it thru code but the problem is the zip has password. so when i run the script i get a window popup asking for password. How can modify the script to enter password automatically. I tried the methods i know, but when the password window pops out, the command to enter the password in the next line given my me is not reached. Please refer the attached screen shot for more clarity.
Script
'Extracting Secu_bottom
'Specifies the location of the zip file.
secu_Bottom_ZipFile="D:\Test\secu_Bottom.zip"
'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 contents of the zip file.
set objShell = CreateObject("Shell.Application")
set FilesInZip=objShell.NameSpace(secu_Bottom_ZipFile).items
objShell.NameSpace(ExtractTo).CopyHere(FilesInZip) -----> Here is where i get a window asking password.
Set fso = Nothing
Set objShell = Nothing
Thanks in Advance
Related Content
- 8 months ago
- 3 years ago
- 7 years ago
Recent Discussions
- 2 days ago
- 2 days ago
- 5 days ago