¿Cómo determinar si se ha ejecutado un archivo comprimido VBS?

Cuando hay una gran cantidad de archivos comprimidos (más de 1000), sale sin copiar el script final, lo que da como resultado que solo se comprima una parte de los archivos. mi directorio de origen = " C:\ Documentos y configuraciones \ Nueva carpeta \ fuente " myZipFile = " C:\ Documentos y configuraciones \ Nueva carpeta \ destino \ 1. zip " Establecer FSO = CreateObject("Objeto del sistema Scripting.file")Establecer f = FSO. f. Escriba "PK" y Chr(5) y Chr(6) y String(18, Chr(0)) f. Cerrar Establecer objShell = CreateObject("Shell.application") Establecer objSource = objShell. NameSpace (mi directorio fuente) Establecer objFolderItem = fuente obj. Elementos() Establecer objTarget = objShell. espacio de nombres (myZipFile) en opciones = 256 obj target. Copie objFolderItem, intOptionsDo aquí en WScript. Duerme durante 1000 ciclos hasta el objetivo. proyecto(). Cuente 0 cuadro de mensaje "OK"

En términos simples, los archivos comprimidos mediante software de compresión se denominan archivos comprimidos. El principio de compresión es comprimir el código binario del archivo y reducir los códigos 0 y 1 adyacentes. Por ejemplo, si hay 000000, se puede cambiar a seis ceros para reducir el espacio del archivo.

El principio básico de la compresión de archivos es encontrar bytes repetidos en el archivo, crear un archivo "diccionario" con los mismos bytes y representarlo con un código. Por ejemplo, en varios lugares del archivo, la misma palabra "chino * * * y China" está representada por un código y escrita en el archivo de "diccionario" para lograr el propósito de degradar.