VB-script eine Datei zippen und geben Sie die zip-Datei der name der Datei

Brauchen Sie Hilfe mit VB-script zip-Datei in einen Ordner, und geben Sie die zip-Datei angelegt der name der ursprüngliche name der Datei. Wie wenn es ein trn-Datei namens abc.trn wollen dann erstellen Sie eine zip-Datei mit dem Namen abc.zip. Bitte helfen Sie, wenn jemand eine Idee

InformationsquelleAutor Abhishek | 2013-05-17
  1. 3

    Ja und Nein. Nach diese Antwort auf SO es ist nicht möglich, mit VBscript allein.

    Gibt es VBA-Methoden, um zip und entpacken Sie Sie mit den windows eingebauten
    Kompression gut, die sollen geben einen Einblick, wie die
    system arbeitet. Sie können in der Lage sein, um diese Methoden in einem
    Skriptsprache Ihrer Wahl.

    Jedoch, können Sie ein "von der Implementierung abhängige Verhalten des Windows-shell" (wiederum zitiert aus der gleichen Quelle)

    Dim fso, winShell, MyTarget, MySource, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set winShell = createObject("shell.application")


MyTarget = Wscript.Arguments.Item(0)
MySource = Wscript.Arguments.Item(1)

Wscript.Echo "Adding " & MySource & " to " & MyTarget

'create a new clean zip archive
Set file = fso.CreateTextFile(MyTarget, True)
file.write("PK" & chr(5) & chr(6) & string(18,chr(0)))
file.close

winShell.NameSpace(MyTarget).CopyHere winShell.NameSpace(MySource).Items

do until winShell.namespace(MyTarget).items.count = winShell.namespace(MySource).items.count
    wscript.sleep 1000 
loop

Set winShell = Nothing
Set fso = Nothing
    InformationsquelleAutor Dave
Schreibe einen Kommentar