Paquete en carpeta vb

Función de declaración privada ShellExecute Lib "shell32.dll" alias "ShellExecuteA" (ByVal hwnd es Long, ByVal lpOperation es String, ByVal lpFile es String, ByVal lpParameters es String, ByVal lpDirectory es String, ByVal nShowCmd es Long) es Long

Private subform_Load()

Dim Path es una cadena, fn es una cadena, c es un entero largo, n es un tipo entero largo

Atenuar WinRarFilePath como cadena

Ruta del archivo Winrar = "c:\program files\winrar\winrar.exe" 'Por ejemplo, "c:\program files\winrar.exe" "

Ruta = 'Por ejemplo "d:\carpeta de imágenes"

c = 100

fn = Dir(Ruta &"\ *.JPG ", vbhidden+ vbreadonly+vbsystem)' Si solo hay archivos de imagen en la carpeta, puede usar * en lugar de *. jpg y *. jpg solo comprime imágenes jpg.

Pedir prestado mientras haces (fn)

Si fn = "." o fn = ".." entonces ve a nt

c = c + 1

Si c & gt100, entonces c = 1:n = n+1:MkDir Ruta & amp " \ " & ampn

Nombre la ruta & amp" \ " & ampfn como ruta & amp" \ " & ampn & amp" \ " & amp【Matemáticas】Función

nt:

fn = Dir

Ring

Ajustar por separado

Para c = 1 a n

ShellExecute hwnd, "open", WinRarFilePath, "a" & ampc & amp"& ampc & amp"\* jpg. ",Path,0' El *. El jpg aquí es el mismo que el anterior.

Luego

Empaquételos juntos

Para c = 1 a n

ShellExecute hwnd,"open",WinRarFilePath,"a"&1.&c&"\*.jpg",Ruta,0' El archivo *. El jpg aquí es el mismo que el anterior.

Luego

Conector final