求VBS压缩文件和解压缩文件代码！

sd2951811 · 发表于 2010-4-26 14:31:08

比如我在D:\test
下面有10个txt文件，文件名分别为1.txt 2.txt 3.txt依次类推
有没有可以实现的vbs脚本。先把它们压缩，然后再解压缩？
非常紧急。请帮帮忙！

TIB · 发表于 2010-4-26 16:49:29

可以调用WinRAR的命令行来实现

sd2951811 · 发表于 2010-4-26 16:53:10

用了个浆糊办法，先创建了10个txt文件。然后用vbs调用rar命令来创建了

Haereticus · 发表于 2010-4-26 16:56:36

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:46

发现这样解压后，再打开这个解压文件夹，里面的路径包括了整个路径，怎样能始这个解压文件夹一打开就是那几个.txt呢

Haereticus · 发表于 2010-4-27 11:42:45

这个你可以查winrar的帮助文档，当前文件夹应该是最后一个参数为空

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] 求VBS压缩文件和解压缩文件代码！

相关帖子

怎样解压到当前文件

站长推荐 /1