At oprette en zip fil i vbs

Jeg skulle mene at du kan bruge WinZip Command Line Support Add-On
Du kan læse om den her: http://www.winzip.com/wzclineb.cgi og downloade her: http://www.winzip.com/wzcline.htm
Der er gode eksempler på brugen i hjælpe filen.

Denne her virker:
Set WshShell = CreateObject("WScript.Shell")
Set oFS    = CreateObject("Scripting.FilesystemObject")

If WScript.Arguments.Count < 1 Then
    WshShell.Popup "Jeg skal bruge et argument makker", 0, "Filen er ikke specificeret", 48
    WScript.Quit
End If

WinZip = "c:\program files\Winzip\wzzip.exe"
FileName = StripFilePath(WScript.Arguments(0))
FilePath = StripFileName(WScript.Arguments(0))
Drive = Left(FilePath, 2)

RunCommand1 = "CMD /K " & Drive & " & cd " & FilePath & " & """ & WinZip & """ " & FileName & ".zip " & FileName & "& Exit"

WshShell.Run RunCommand1
WScript.Sleep 1000
WshShell.SendKeys "."

Function StripFilePath(FilePath)
    FileNameVar1 = InstrRev(FilePath, "\", -1, 1)
    FileNameVar2 = Len(FilePath)
    FileNameVar3 = FileNameVar2 - FileNameVar1
    FileName = Right(FilePath, FileNameVar3)
    FilePath = Left(FilePath, FileNameVar1)
    StripFilePath = FileName
End Function

Function StripFileName(FilePath)
    FileNameVar1 = InstrRev(FilePath, "\", -1, 1)
    FilePath = Left(FilePath, FileNameVar1)
    StripFileName = FilePath
End Function


Hvis du placere scriptet i din SendTo folder kan du højre klikke på den fil du vil have pakket, eller du kan eksekvere den med filnavn inkl fuld sti til filen som argument. Dette kan sagtens laves om, jeg ved bare ikke rigtigt hvordan du har tænkt dig at benytte den.

Du skal bruge WinZip Cli interface for at det virker. Det kan hentes på adressen: http://download.winzip.com/wzcline.exe

Husk at rette stien til WZZIP.EXE til når du har installeret WinZip Cli.

Den har dog et problem med filnavne med mellemrum, måske en anden kunne være behjælpelig med at få det til at virke.

takker :)