¡Cómo llamar a WINRAR para comprimir y descomprimir archivos llamando a programas externos en un lenguaje sencillo!

Pero funciona

Si te aburre copiar, ignóralo

'El código define dos subrutinas, una para descompresión, uno para compresión

. Versión

2

. Subrutina

Compress_WinRAR_Compress,

Tipo de texto,

Público,

Este comando requiere que WinRAR esté instalado

. Parámetros

Archivo a comprimir,

Texto,

Matriz,

Permitir archivos y carpetas

. Parámetros

Archivo comprimido,

Textual,

,

Ruta completa y nombre del archivo rar\zip

. Parámetros

Dirección de WinRAR,

Textual,

puede estar vacío,

si no hay información de WinRAR en el registro. Pero está instalado. Necesitas escribir

Ejemplo: C:\Programas

Archivos\WinRAR\WinRAR.exe

Variables locales

Ituanjun,

Tipo entero

. Variables locales

Información comprimida,

Tipo de texto

Yi Duanjun

=

Información comprimida

=

""

. Si es verdadero

(Está vacío

(dirección WinRAR))

Dirección WinRAR

Obtener texto Clave de registro

(#Máquina local,

"SOFTWARE\Microsoft\Windows\ CurrentVersion\App

Paths\WinRAR.exe\",

)

.Si es verdadero, final

.Si es verdadero

(Dirección WinRAR

=

"")

Regresar

("Directorio WinRAR no encontrado")

.Finalizar si es verdadero

Contando bucle uno

(obtener el número de miembros de la matriz

(archivo comprimido),

Yi Chuanjun)

Información comprimida

p>

=

Información comprimida

"

"

El archivo se está comprimiendo

[Yi Chuanjun]

El ciclo de conteo finaliza

()

Ejecutar

"

a

-ep1

-scul

-r0

-iext

"

Comprimir a archivo

Información de compresión,

verdadero,

)

Retorno

("")

. Subrutina

Compress_WinRAR_Decompress,

Tipo de texto,

Público,

Este comando requiere que WinRAR esté instalado

.

Parámetros

Archivo comprimido,

Texto,

,

Ruta completa y nombre del archivo rar/zip

. Parámetros

Extraer a carpeta,

Tipo de texto,

,

Ruta completa a la carpeta

. Parámetros

Dirección de WinRAR,

tipo de texto,

pueden estar vacíos,

si no hay información de WinRAR en el registro. Pero está instalado. Luego necesitas escribir

Ejemplo: C:\Programas

Archivos\WinRAR\WinRAR.exe

. Si es verdadero

( Está vacío

(dirección WinRAR))

Dirección WinRAR

=

Obtiene el elemento de registro de texto

(#Máquina local,

"SOFTWARE\Microsoft\Windows\CurrentVersion\App

Rutas\WinRAR.exe\",

)

.Si es verdadero fin

.Si es verdadero

(Dirección WinRAR

=

"")

Regresar

("Directorio WinRAR no encontrado")

. Si es verdadero, final

ejecutar

(dirección WinRAR

"

x

-iext

-ow

-er

"

Archivo comprimido

"

"

Extraer a carpeta,

verdadero,

)

Regresar

(" ")

.