求一段VBS压缩RAR或ZIP代码

Posted 2023-04-04

求一段VBS压缩RAR或ZIP代码，我想将一个文件夹里面的所以内容利用VBS压缩成ZIP或RAR，然后利用日期时间命名。
一楼的代码好像运行不了，

错误：
行9 字符5 缺少对象“ws”

参考技术A 查查 rar.exe 的命令就知道了。自己动手丰衣足食
一个批处理就行了 参考技术B 批处理是可以很简单做到的 参考技术C 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

Java能否对压缩文件进行操作，例如：对zip，rar，tar等文件进行复制。

RT：Java里面的I/O好像不能解决压缩文件复制的问题。求解决思路~目的是把压缩文件复制到指定的目录后删除原文件，然后解压压缩文件。写这样的一段程序做批量处理。或者、提供更好的思路避开压缩文件的复制问题。  

参考技术A 首先看你是什么操作系统
其次你说的都不是问题 压缩 拷贝 删除 解压缩 这些网上都有现成的例子 参考技术B java.util.zip 提供用于读写标准 ZIP 和 GZIP 文件格式的类。 参考技术C 参考 Java Archive (JAR) Files

参考资料：http://docs.oracle.com/javase/7/docs/technotes/guides/jar/index.html