Bonjour,
Je fais actuellement un script vbs me permettant de zipper un dossier, le code marche mais le seul problème qu'il me reste à résoudre est la gestion des options.
En effet je souhaiterais pouvoir activer l'option "save full path info" mais je n'arrive pas à trouver la syntaxe me permettant de faire ca...
Voici mon code de création du zip et de copier de fichier dans celui ci :
'création du zip vierge
Set Ag=Wscript.Arguments
username = CreateObject("Wscript.Shell").Environment("Process")("username")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(ZipName, 8, vbtrue)
BlankZip = "PK" & Chr(5) & Chr(6)
For x = 0 to 17
BlankZip = BlankZip & Chr(0)
Next
ts.Write BlankZip
set objFolder = nothing
set objShell = nothing
Set fso = nothing
Set ts = nothing
'copie des fichiers du dossier dans le zip vierge
Set oShell = CreateObject("Shell.Application")
set oZip = oShell.NameSpace(ZipName)
oZip.CopyHere ExeRootDir
Dans ce code , ZipName correspond au nom et a l'emplacement du fichier zip créé et ExeRootDir au dossier à zipper.
J'espère que l'un d'entre vous aura la réponse à mes problèmes!!!
merci d'avance,
Xavier
