VBScript如何實現(xiàn)調(diào)用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&”RarComponentrar.exe”

    SourceFile = lastg_file_name

    TargetFile = “D:datatest.rar”

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

End Function