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