相关推荐

用VB压缩文件(最简单的方法)。

用VB压缩文件 用VB压缩文件(最简单的方法)。

VB 利用WINRAR 压缩文件及解压

预备知识:1. Shell 函数执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。语法Shell(pathname[,windowstyle])Shell 函数的语法含有下面这些命名参数：部分描述pathname必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文

在VB中如何调用压缩工具winrar

本人用VB写了一个自动备份工具,现在想在备份之后自动调用winrar进行压缩,即在目标文件夹看到的是压缩过的文件.本人不知如何调用winrar,向大家请教如何才能实现.最好有VB语句.谢谢!!! 答案1给Access数据库压缩 给你一段别人写的sub做参考,压缩采用dao方法 Option Explicit 压缩 Access 数据库 Public Sub CompactJetDatabase

VB6 自动解压 Zip

使用VB6制作的使用代码解压ZIP文件，可以使用360的压缩工具软件

VB调用winrar.dll进行rar文件的解压缩

在使用VB进行开发的过程中，如果需要对RAR文件进行解压，可以使用本源码试试，比外部调用winrar更加稳定。

使用Zlib库进行文件的压缩和解压

zlib介绍 zlib是提供数据压缩用的函式库，由Jean-loup Gailly与Mark Adler所开发，初版0.9版在1995年5月1日发表。zlib使用DEFLATE算法，最初是为libpng函式库所写的，后来普遍为许多软件所使用。此函式库为自由软件，使用zlib授权 配置 我是从网上直接下载了zlib的dll文件的，压缩包具体有几个部分，分别是头文件zconf.h,z

zip 的压缩原理与实现

http://www.blueidea.com/bbs/newsdetail.asp?id=1819267&page=2&posts=&Daysprune=5&lp=1无损数据压缩是一件奇妙的事情，想一想，一串任意的数据能够根据一定的规则转换成只有原来 1/2 - 1/5 长度的数据，并且能够按照相应的规则还原到原来的样子，听起来真是很酷。半年前，苦熬过初...

vbs常用操作

打开一张图片 CreateObject("WScript.Shell").Run "要打开的文件路径" 让系统蓝屏一下 Set ws = CreateObject("Wscript.Shell") ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul",vbhide ...

目前才知道关于rar的真相

在国外，许多人用zip,貌似用7z的多起来了， Eugene Roshal是

破解 zip 压缩包程序

代码地址如下：http://www.demodashi.com/demo/12021.html 项目文件结构 代码实现过程 演示效果 项目文件结构在当前目录有三个文件： - 3-zipCrack.py ：zip 破解程序 - dictionary.txt ：密码字典 - evil.zip ：zip 压缩包程序代码实现过程ZIP，是一个文件的压缩的算法，Z

几个简单实用的vbs命令

vbs简单设置命令集 新建文本文件，填入代码，将文本后缀改为   .vbs   即可执行！   无限弹出光驱： ------------------------------------------------ set wmp=createobject("wmplayer.ocx") set cd=wmp.cdromcollection.item(0) do cd.eject lo...

rar绕过密码解压_VBA学习笔记50:文件压缩与解压缩

学习资源：《Excel VBA从入门到进阶》第50集 by兰色幻想本节介绍如何使用VBA进行文件的压缩和解压缩。一、shell函数 进行文件的压缩和解压缩需要调用压缩软件，所以这里需要用到Shell函数。 Shell函数执行一个可执行文件，返回一个 Variant (Double)。如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。Shell("可执行程序的路径...

VB6.0调用 DLL版ZIP压缩文件夹目录和解压ZIP文件

VB6.0调用 DLL版ZIP压缩文件夹目录和解压ZIP文件，网上很多源码不好用，所以就自己做了一个。原始代码是VC++的用VS2019编译了一个，DLL封装了下。调用很简单 '调用方法如下: 'CreateZipFileA "C:\123", "C:\123.zip") 压缩 Public Declare Function CreateZipFileA Lib "MirPack.dll" (ByVal sFolderPath As String, ByVal sZipFilePath As String) As Long 'UnZipFileA "C:\123", "C:\123.zip") 解压 Public Declare Function UnZipFileA Lib "MirPack.dll" (ByVal sFolderPath As String, ByVal sZipFilePath As String) As Long

VB6实现的文件压缩

VB6实现的文件压缩,可结合excel操作文件的压缩和解压 , 亲测winrar或360压缩工具都可正常打开