Extraiga archivos del archivo ZIP con VBScript

Question

Al extraer archivos de un archivo ZIP, estaba usando lo siguiente.

Sub Unzip(strFile)
'' This routine unzips a file. NOTE: The files are extracted to a folder ''
'' in the same location using the name of the file minus the extension.  ''
'' EX. C:/Test.zip will be extracted to C:/Test ''
''strFile (String) = Full path and filename of the file to be unzipped. ''
Dim arrFile
    arrFile = Split(strFile, ".")
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CreateFolder(arrFile(0) & "/ ")
    pathToZipFile= arrFile(0) & ".zip"
    extractTo= arrFile(0) & "/ "
    set objShell = CreateObject("Shell.Application")
    set filesInzip=objShell.NameSpace(pathToZipFile).items
    objShell.NameSpace(extractTo).CopyHere(filesInzip)
    fso.DeleteFile pathToZipFile, True
    Set fso = Nothing
    Set objShell = Nothing
End Sub ''Unzip

Esto funcionaba, pero ahora aparece el error "El archivo existe".

¿Cuál es la razón para esto? ¿Hay alguna alternativa?

Answer 1

Puede usar DotNetZip desde VBScript.

Para descomprimir un archivo zip existente, sobrescribiendo todos los archivos que puedan existir:

WScript.echo("Instantiating a ZipFile object...")
Dim zip 
Set zip = CreateObject("Ionic.Zip.ZipFile")

WScript.echo("Initialize (Read)...")
zip.Initialize("C:/Temp/ZipFile-created-from-VBScript.zip")

WScript.echo("setting the password for extraction...")
zip.Password = "This is the Password."

'' set the default action for extracting an existing file
'' 0 = throw exception
'' 1 = overwrite silently
'' 2 = don''t overwrite (silently)
'' 3 = invoke the ExtractProgress event
zip.ExtractExistingFile = 1

WScript.echo("extracting all files...")
Call zip.ExtractAll("extract")

WScript.echo("Disposing...")
zip.Dispose()

WScript.echo("Done.")

Para crear un archivo zip nuevo:

dim filename 
filename = "C:/temp/ZipFile-created-from-VBScript.zip"

WScript.echo("Instantiating a ZipFile object...")
dim zip2 
set zip2 = CreateObject("Ionic.Zip.ZipFile")

WScript.echo("using AES256 encryption...")
zip2.Encryption = 3

WScript.echo("setting the password...")
zip2.Password = "This is the Password."

WScript.echo("adding a selection of files...")
zip2.AddSelectedFiles("*.js")
zip2.AddSelectedFiles("*.vbs")

WScript.echo("setting the save name...")
zip2.Name = filename

WScript.echo("Saving...")
zip2.Save()

WScript.echo("Disposing...")
zip2.Dispose()

WScript.echo("Done.")

Answer 2

http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_23022290.html

Verifica tu directorio temporal. Si tiene 99 carpetas asociadas con este proceso de descompresión, intente eliminarlas.

Answer 3

Hay respuestas arriba que son perfectamente correctas, pero pensé en envolver todo en una solución completa que estoy usando:

strZipFile = "test.zip"     ''name of zip file
outFolder = "."             ''destination folder of unzipped files (must exist)
''If using full paths rather than relative to the script, comment the next line
pwd = Replace(WScript.ScriptFullName, WScript.ScriptName, "")

Set objShell = CreateObject( "Shell.Application" )
Set objSource = objShell.NameSpace(pwd+strZipFile).Items()
Set objTarget = objShell.NameSpace(pwd+outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptions

''Clean up
Set WshShell = CreateObject("Wscript.Shell")
tempfolder = WshShell.ExpandEnvironmentStrings("%temp%")
Set fso = CreateObject("Scripting.FileSystemObject")
Call fso.DeleteFolder(tempfolder + "/Temporary Directory 1 for " + strZipFile, True )  

Answer 4

Todas las soluciones anteriores son precisas pero no son definitivas.

Si está intentando extraer un archivo comprimido en una carpeta temporal, se creará inmediatamente una carpeta que muestre "Carpeta temporal para YOURFILE.zip" (en C: / Documents and Settings / NOMBRE DE USUARIO / Configuración local / Temp) para CADA ARCHIVO contenido dentro de su archivo zip, que está tratando de extraer.

Así es, si tiene 50 archivos, creará 50 carpetas dentro de su directorio temporal.

PERO si tiene 200 archivos, se detendrá en 99 y se bloqueará - El archivo existe

..

Aparentemente esto no ocurre en Windows 7, con las contribuciones que veo arriba. Pero independientemente, aún podemos tener controles. De acuerdo, así es como lo arreglas.

    ''========================
    ''Sub: UnzipFiles
    ''Language: vbscript
    ''Usage: UnzipFiles("C:/dir", "extract.zip")
    ''Definition: UnzipFiles([Directory where zip is located & where files will be extracted], [zip file name])
    ''========================
    Sub UnzipFiles(folder, file)
        Dim sa, filesInzip, zfile, fso, i : i = 1
        Set sa = CreateObject("Shell.Application")
            Set filesInzip=sa.NameSpace(folder&file).items
        For Each zfile In filesInzip
            If Not fso.FileExists(folder & zfile) Then
                sa.NameSpace(folder).CopyHere(zfile), &H100 
                i = i + 1
            End If
            If i = 99 Then
            zCleanup(file, i)
            i = 1
            End If
        Next
        If i > 1 Then 
            zCleanup(file, i)
        End If
        fso.DeleteFile(folder&file)
    End Sub

    ''========================
    ''Sub: zCleanup
    ''Language: vbscript
    ''Usage: zCleanup("filename.zip", 4)
    ''Definition: zCleanup([Filename of Zip previously extracted], [Number of files within zip container])
    ''========================
    Sub zCleanUp(file, count)   
        ''Clean up
        Dim i, fso
        Set fso = CreateObject("Scripting.FileSystemObject")
        For i = 1 To count
           If fso.FolderExists(fso.GetSpecialFolder(2) & "/Temporary Directory " & i & " for " & file) = True Then
           text = fso.DeleteFolder(fso.GetSpecialFolder(2) & "/Temporary Directory " & i & " for " & file, True)
           Else
              Exit For
           End If
        Next
    End Sub

Y eso es todo, copie y pegue esas dos funciones en su programa alojado de vbscript y estará listo, en Windows XP y Windows 7.

¡Gracias!

Answer 5

Agregué el siguiente código al comienzo de mi procedimiento de descompresión para eliminar estos directorios antes de descomprimir:

For i = 1 To 99
  If aqFileSystem.Exists(GetAppPath("Local Settings", "") & "/Temp/Temporary Directory " & i & " for DialogState.zip") = True Then
      result = aqFileSystem.ChangeAttributes(GetAppPath("Local Settings", "") & "/Temp/Temporary Directory " & i & " for DialogState.zip", 1 OR 2, aqFileSystem.fattrFree) 
      Call DelFolder(GetAppPath("Local Settings", "") & "/Temp/Temporary Directory " & i & " for DialogState.zip")  
   Else
      Exit For
   End If
Next