51Testing软件测试论坛

标题: 求VBS压缩文件和解压缩文件代码！ [打印本页]

作者: sd2951811 时间: 2010-4-26 14:31
标题: 求VBS压缩文件和解压缩文件代码！
比如我在D:\test
下面有10个txt文件，文件名分别为1.txt 2.txt 3.txt依次类推
有没有可以实现的vbs脚本。先把它们压缩，然后再解压缩？
非常紧急。请帮帮忙！

作者: TIB 时间: 2010-4-26 16:49
可以调用WinRAR的命令行来实现

作者: sd2951811 时间: 2010-4-26 16:53
用了个浆糊办法，先创建了10个txt文件。然后用vbs调用rar命令来创建了

作者: Haereticus 时间: 2010-4-26 16:56
Set objWsh = CreateObject("Wscript.shell")
'压缩
objWsh.Run "winrar a D:\test\test.rar D:\test\*.txt",0,True
'解压缩
objWsh.Run "winrar x -o+ D:\test\test.rar *.txt D:\test\",0,True
Set objWsh = Nothing

作者: bounty 时间: 2010-4-27 11:17
标题: 怎样解压到当前文件
发现这样解压后，再打开这个解压文件夹，里面的路径包括了整个路径，怎样能始这个解压文件夹一打开就是那几个.txt呢

作者: Haereticus 时间: 2010-4-27 11:42
这个你可以查winrar的帮助文档，当前文件夹应该是最后一个参数为空

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)