求助一个压缩软件

[blbadboy]

我需要一个判断是否是当天得文件夹（文件夹是日期为名），如果是则不压缩，反之压缩,压缩得文件名以获取的文件夹为名，压缩后并删除文件夹，这样得一个程序，不知道怎么写。请指教我得邮箱是[e-mail]

[东方之珠]

1、判断文件日期用API函数getfiletime
2、压缩文件用WinRAR的Unrar.dll：
VB6如何调用unrar.dll将rar文件解压缩到指定目录？
参见枕善居的VB6.0源码：http://www.mndsoft.com/blog/article.asp?id=688