Todo lo anterior 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 en su archivo zip, que está tratando de extraer.
Así es, si tiene 50 archivos, creará 50 carpetas dentro de su directorio temporal.
pero si usted tiene 200 archivos, se detendrá a los 99 y accidente indicando - El archivo existe
..
Al parecer, esto no ocurre en Windows 7, con las contribuciones veo por encima de . 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, copiar y pegar esas dos funciones en su programa de VBScript alojado y que debe ser bueno para ir, en Windows XP & Windows 7.
Gracias!
@ Tester101 Marque una de las respuestas como respuesta o respóndala usted mismo. Gracias –