1、你先搞懂 winrar.exe 的解压参数格式,然后把winrar.exe和相关文件加入到资源文件中,然后调用 资源文件中的winrar.exe
我们提供的服务有:成都网站设计、成都网站建设、微信公众号开发、网站优化、网站认证、永安ssl等。为上1000+企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的永安网站制作公司
2、弄明白rar/zip文件解压/压缩方法和格式,自己写程序 (可能会比较麻烦)
手机敲很累的!一定要给分啊!格式是:tar
选项
文件.选项有
-c:产生打包文件
-v:显示详细信息
-f:指定压缩后的文件名
-z:打包同时压缩!举个例子吧!将目录my打包并压缩成my.tar.gz就这样tar
-zcvf
my.tar.gz
my
如果机器安装有winRar软件,就可以通过shell来借用他的功能达到压缩文件的效果;
参考代码如下:
Dim DeliveryF As String = Server.MapPath("..\Temp\DeliveryFactors.xls") '原始文件 (压缩前)
Dim TruckInfo As String = Server.MapPath("..\Temp\TruckInformation.xls")
Dim QDetail As String = Server.MapPath("..\Temp\QuotationDetail.xls")
'用shell命令调用winrar.exe创建压缩文件()
Dim winRarexe As String = "C:\Program Files\WinRAR\Rar" 'winzip 执行文件的位置
Dim wtarget As String = "C:\temp\QuotationVAComparsion.zip" '目地文件 (压缩后)
Dim command As String = winRarexe " a " wtarget " " DeliveryF " " TruckInfo " " QDetail
'这个命令你可以查看winrar的命令集
Dim retval As Double 'Shell 指令传回值
retval = Shell(command, AppWinStyle.MinimizedFocus)
可以,属性controlBox 为false可以去掉三个按钮,另外还有maximize,minimize 可以分别控制最大化和最小化按钮的显示。