用VBScript實(shí)現(xiàn)壓縮目錄中的所有文件(Zip)

    下面的腳本主要是將制定目錄中得文件，單個(gè)壓縮為zip格式的文件，需要的朋友可以參考下
    代碼如下:
    On Error Resume Next
    Dim objFSO,sourcepath,targetpath,targetfile
    Function GetSourceFile(path)
    Dim file,folder,sfolder,subfolder,files
    If Not objFSO.FolderExists(path) Then
    Msgbox "目標(biāo)文件夾不存在！"
    Else
    objFSO.CreateFolder targetpath & Right(path,Len(path)-Len(sourcepath))
    Set folder=objFSO.GetFolder(path)
    Set files=folder.files
    For Each file in files
    targetfile=targetpath & Right(path,Len(path)-Len(sourcepath)) & "\" & file.name & ".zip"
    Set fp=objFSO.OpenTextFile(targetfile,2,True)
    fp.Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18,0)
    fp.Close
    oApp.Namespace(targetfile).CopyHere path & "\" & file.name
    WScript.Sleep 1000
    Next
    Set subfolder=folder.subfolders
    For Each sfolder in subfolder
    GetSourceFile path & "\" & sfolder.name
    Next
    End If
    End Function
    Set objFSO=CreateObject("Scripting.FileSystemObject")
    Set oApp=CreateObject("Shell.Application")
    sourcepath="C:\Documents and Settings\Administrator\桌面\Watermarks"
    targetpath="D:\temp"
    GetSourceFile sourcepath
    Set objFSO=Nothing
    Set oApp=Nothing
    使用方法:
    直接將上面的代碼保存為test.vbs文件，然后修改sourcepath與targetpath注意目標(biāo)目錄必須是新目錄，使用的時(shí)候最好加上判斷。