VBScript调用RAR压缩文件...

VBScript调用RAR压缩文件

'------------------------------------------------------------

'Backup Data File and Rar File

'

'Create Date: 2009-11-05

'Author: Wei_Zhu

'Chage Log:

'Last Chage Date: 2009-11-05

'-------------------------------------------------------------

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

'----Rar File-----

Function RarBackupFile(lastg_file_name)

'/*Rar Program in RarComponent Folder, Program Name is Rar.exe

' Rar Source: Folder + File

' Rar Target: Folder + Target Name .rar */

Dim WshShell

Set WshShell = CreateObject("WScript.Shell")

Set fso=CreateObject("Scripting.FileSystemObject")

folder=fso.getfolder(WshShell.currentdirectory)

RarComponent =folder&"\RarComponent\rar.exe"

SourceFile = lastg_file_name

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

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

End Function