Besoin d'aide avec le script VB pour compresser un fichier dans un dossier et donner au fichier zip créé le nom du nom d'origine du fichier. Comme s'il y avait un fichier trn nommé abc.trn, alors vous voulez créer un fichier zip nommé abc.zip. S'il vous plaît aider si quelqu'un a une idéeVB script pour compresser un fichier et donner le fichier zip le nom du fichier
Oui et non. Selon this answer on SO, il n'est pas possible d'utiliser VBScript seul.
Il existe des méthodes VBA à zip et décompressez en utilisant les fenêtres construites en compression et, ce qui devrait donner un aperçu de la façon dont le système fonctionne . Vous pouvez être en mesure de construire ces méthodes dans un langage de script de votre choix.
Cependant, vous pouvez utiliser un "comportement dépendant de l'implémentation de la shell Windows" (encore une fois, cité par la même source)
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