如果机器安装有winRar软件，就可以通过shell来借用他的功能达到压缩文件的效果；
大祥网站建设公司创新互联建站,大祥网站设计制作，有大型网站制作公司丰富经验。已为大祥近1000家提供企业网站建设服务。企业网站搭建\成都外贸网站建设要多少钱，请找那个售后服务好的大祥做网站的公司定做！
参考代码如下：
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)
1、你先搞懂 winrar.exe 的解压参数格式，然后把winrar.exe和相关文件加入到资源文件中，然后调用 资源文件中的winrar.exe
2、弄明白rar/zip文件解压/压缩方法和格式，自己写程序 (可能会比较麻烦)
1、你先搞懂 winrar.exe 的解压参数格式，然后把winrar.exe和相关文件加入到资源文件中，然后调用 资源文件中的winrar.exe
2、弄明白rar/zip文件解压/压缩方法和格式，自己写程序 (可能会比较麻烦)