vb 压缩文件不要目录

ajunajun 2009-02-14 03:44:02

这是我写的程序，可是压缩文件里面会嵌套所在目录，我想里面只要需要的文件，不带目录，怎么办？

      yesth01 = " D:\\yjm\\" & Format$(DateAdd("d", -1, Date), "yyyymmdd") & ".h01"

               yestm01 = " D:\\yjm\\" & Format$(DateAdd("d", -1, Date), "yyyymmdd") & ".m01"

               yesth04 = " D:\\yjm\\" & Format$(DateAdd("d", -1, Date), "yyyymmdd") & ".h04"

               yestm04 = " D:\\yjm\\" & Format$(DateAdd("d", -1, Date), "yyyymmdd") & ".m04"

        

               rarname = Mid(Format(Now, "YYYYMMDD"), 1) & "QZ05A"

               s = "C:\Program Files\WinRAR\WinRAR.exe "

               s = s & "a d:\\yjm\\" & rarname & ".rar "

    

               '将昨日四个数据文件添加至压缩文件内

               s = s & yesth01      '添加昨天的H01文件

               s = s & yestm01      '添加昨天的M01文件

               s = s & yesth04      '添加昨天的H04文件

               s = s & yestm04      '添加昨天的M04文件

   

               Shell s              '调用压缩文件，将昨日四个文件压缩

...全文

134 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

东方之珠 2009-02-16

打赏
举报

ljluck7687 2009-02-16

打赏
举报

要加上一个参数

Tiger_Zhao 2009-02-16

打赏
举报

开关 -ep

s = s & "a -ep d:\\yjm\\" & rarname & ".rar "

bdzwj 2009-02-15

打赏
举报

你看看winrar的控制台帮助文件，里边应该有相关的参数

luckyroot 2009-02-15

打赏
举报

也不行

luckyroot 2009-02-15

打赏
举报

你可以先压缩在根目录下，然后再做剪切

ajunajun 2009-02-15

打赏
举报

s = s & "a d:" & rarname & ".rar "
不行啊，我想把压缩后的文件搁到指定的目录下，而不是在D盘

bdzwj 2009-02-14

打赏
举报

试试看行不行



 yesth01 = Format$(DateAdd("d", -1, Date), "yyyymmdd") & ".h01"

 yestm01 = Format$(DateAdd("d", -1, Date), "yyyymmdd") & ".m01"

 yesth04 = Format$(DateAdd("d", -1, Date), "yyyymmdd") & ".h04"

 yestm04 = Format$(DateAdd("d", -1, Date), "yyyymmdd") & ".m04"

 rarname = Mid(Format(Now, "YYYYMMDD"), 1) & "QZ05A"

 

 ChDir "d:\yjm\"

 s = "C:\Program Files\WinRAR\WinRAR.exe "

 s = s & "a d:" & rarname & ".rar "

 

 '将昨日四个数据文件添加至压缩文件内

 s = s & yesth01 '添加昨天的H01文件

 s = s & yestm01 '添加昨天的M01文件

 s = s & yesth04 '添加昨天的H04文件

 s = s & yestm04 '添加昨天的M04文件

 Shell s '调用压缩文件，将昨日四个文件压缩