求一段VBS压缩RAR或ZIP代码

查查 rar.exe 的命令就知道了。自己动手丰衣足食
一个批处理就行了

批处理是可以很简单做到的

BackUpFile("D:\Data")

Function BackUpFile(lstg_folder_name)

Dim fso, f, f1,fc,s,folder

Set fso=CreateObject("Scripting.FileSystemObject")

folder=fso.getfolder(ws.currentdirectory)

Set f=fso.GetFolder(lstg_folder_name)

Set fc=f.files

For Each f1 in fc

dim lf

lf=lstg_folder_name& "\" & f1.name

RarFile lf

Next

End Function

Function RarBackupFile(lastg_file_name)
Dim WshShell

Set WshShell = CreateObject("WScript.Shell")

Set fso=CreateObject("Scripting.FileSystemObject")

folder=fso.getfolder(WshShell.currentdirectory)

RarComponent =folder&"\RarComponent\rar.exe" rem 写rar具体地址

SourceFile = lastg_file_name

TargetFile = "D:\data\test.rar"

WshShell.Run RarComponent&" a -ep1 "&TargetFile&" "&SourceFile,0

End Function