liminnet 发表于 2008-12-23 11:58:00

nonsmall 发表于 2008-12-23 13:36:00

<div id="code0" style="PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px; FONT-FAMILY: Courier New;">找了个资料 看来是没问题的 只需要用lisp改写</div><div style="PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px; FONT-FAMILY: Courier New;">'电脑爱好者专用版&nbsp; &nbsp; &nbsp; &nbsp; 编写：李兴旺&nbsp; &nbsp; &nbsp; &nbsp; E-MAIL：wors_hip*163.com<br/><br/>MsgBox_Title_Text = "压缩的同步文件夹"<br/>CompressionFolder = InputBox("请输入即将压缩的文件夹路径：", MsgBox_Title_Text, "C:\PHP")<br/>If CompressionFolder = "" Then WScript.Quit<br/><br/>Function Interrogation(Contents)<br/>&nbsp; &nbsp; Dim intButton<br/>&nbsp; &nbsp; intButton = MsgBox(Contents, vbQuestion + vbYesNo, MsgBox_Title_Text )<br/>&nbsp; &nbsp; Interrogation = intButton = vbYes<br/>End Function<br/><br/>Function Compression(CompressionFolder)<br/>&nbsp; &nbsp; FileName = "压缩的同步文件夹.vbs"<br/>&nbsp; &nbsp; Set fso = CreateObject("Scripting.FileSystemObject")<br/>&nbsp; &nbsp; Destination = UCase(fso.GetFile(FileName).Drive) &amp; "\"<br/>&nbsp; &nbsp; DIM cmd<br/>&nbsp; &nbsp; set fso= wscript.CreateObject("wscript.shell")<br/>&nbsp; &nbsp; cmd = "WINRAR A -IBCK -R " &amp; Destination &amp; "压缩的同步文件夹.RAR " &amp; CompressionFolder<br/>&nbsp; &nbsp; fso.run cmd<br/>&nbsp; &nbsp; MsgBox "成功把 " &amp; CompressionFolder &amp; " 文件夹压缩到 " &amp; Destination, vbInformation, MsgBox_Title_Text<br/>End Function<br/><br/>If Interrogation("定时压缩文件夹，同步数据到闪盘，请点击“是”！" &amp; vbCrLf &amp; "马上压缩文件夹，同步数据到闪盘，请点击“否”！") Then<br/>&nbsp; &nbsp; Savetime = InputBox("请输入24 小时格式 (hh:mm) 的时间：", MsgBox_Title_Text, "11:30")<br/>&nbsp; &nbsp; If Savetime = "" Then WScript.Quit<br/>&nbsp; &nbsp; MsgBox "已经运行了定时压缩文件夹，请不要重复运行！", vbExclamation, MsgBox_Title_Text<br/>&nbsp; &nbsp; Dim Check<br/>&nbsp; &nbsp; Check = True<br/>&nbsp; &nbsp; Do<br/>&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp;HHMM = FormatDateTime(Time, 4)<br/>&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp;If HHMM = Savetime Then<br/>&nbsp; &nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp; &nbsp;Compression(CompressionFolder)<br/>&nbsp; &nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp; &nbsp;Exit Do<br/>&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp;End If<br/>&nbsp; &nbsp; Loop Until Check = False<br/>Else<br/>&nbsp; &nbsp; Compression(CompressionFolder)<br/>End If</div>

caoyin 发表于 2008-12-23 13:51:00

直接调用rar程序+参数

liminnet 发表于 2008-12-23 14:07:00

xshrimp 发表于 2008-12-24 01:09:00

(startapp "C:\\Program Files\\WinRAR\\WinRAR.exe a c:\\压缩后文件名.rar" "c:\\压缩文件夹")

liminnet 发表于 2008-12-24 09:22:00

caoyin 发表于 2008-12-24 09:35:00

查看winRAR帮助

liminnet 发表于 2008-12-24 09:37:00

liminnet 发表于 2008-12-24 12:31:00

页: [1]
查看完整版本: 怎么样用wscript.shell把文件夹打包成RAR文件