creation de zip dans un repertoire
Bonjour
Je voudrais pouvoir prendre un fichier dans un répertoire et le zipper dans ce même répertoire.
Le pb avec mon script actuel est que le zip contient le répertoire parent du fichier a zippé :
Avant le lancement j’ai :
Repertoire\Fichier.txt
Après le lancement j’obtiens :
Repertoire\Fichier.zip
MAIS ACTUELLEMENT
Fichier.zip contient : Repertoire\Fichier.txt
Et je voudrais obtenir :
Fichier.zip contient seulement : Fichier.txt
J’espère être compréhensible et j’espère que vous pourrez m’aider.
Cela a-t-il quelque chose à voir avec le répertoire courant ?
Ou alors avec le répertoire d’exécution du script ?
J’ai quelque lacune que je n’arrive pas combler au niveau de la manipulation de répertoire en vbs
//////////////////////////code du Script///////////////////////////////////////
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| Dim Fichier
Fichier = "c:\TestScript\Fichier.txt"
Dim Destination
Destination= "c:\TestScript\Dossier.zip "
Dim zip
zip = "c:\zip.exe"
Set shell_command = CreateObject("WScript.Shell")
command_line = zip + " -r " + Destination + Fichier
shell_command.Exec ( command_line ) |
//////////////////////////////////////////////////////////////////////////////////////
le pb est donc que dossier.zip contient TestScript\fichier.txt
et je voudrais qu'il contienne seulement fichier.txt
