Discussion :

[pascaldu67]

Bonjour,

je souhaiterais utiliser un chemin relatif afin d’exécuter mon script à partir de n'importe qu'elle support externe mais cela me renvois une erreur. En revanche lorsque j'utilise le chemin complet cela fonctionne. Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim FichierZip
Dim objShell
Dim Extraire
Dim FilesInZip
 
'Extraction du moteur'
FichierZip=".\moteur\tmengX64.zip"
Extraire="C:\Program Files (x86)\Trend Micro\OfficeScan\PCCSRV\pccnt\drv\X64"
set objShell = CreateObject("Shell.Application")
set FilesInZip = objShell.NameSpace(FichierZip).items
objShell.NameSpace(Extraire).CopyHere(FilesInZip)

Mon Script se situe sous le dossier père de \moteur

[l_autodidacte]

Salut;

Il y a peut-être deux solutions possibles si le chemin relatif est celui du script et du fichier ZIP (qui sont dans le même dossier à ce que j'ai compris):

La première en invoquant ledit chemin sans le point(.) au début :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit 
 
Dim FichierZip
Dim objShell
Dim Extraire
Dim FilesInZip
 
Dim fso       ' Objet FileSystemObject
 
Set fso = CreateObject("Scripting.FileSystemObject")
'Extraction du moteur'
FichierZip = fso.GetFile("\moteur\tmengX64.zip").Path  ' impossible d'obtenir le chemin sans cette ligne !
Extraire = "C:\Program Files (x86)\Trend Micro\OfficeScan\PCCSRV\pccnt\drv\X64"
set objShell = CreateObject("Shell.Application")
set FilesInZip = objShell.NameSpace(FichierZip).items
objShell.NameSpace(Extraire).CopyHere(FilesInZip)

La seconde, puisque le script et le zip sont dans le même dossier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit 
 
Dim FichierZip
Dim objShell
Dim Extraire
Dim FilesInZip
 
'Extraction du moteur'
FichierZip = Left(Wscript.ScriptFullName, Len(Wscript.ScriptFullName) - Len(Wscript.ScriptName)) & "tmengX64.zip"
Extraire ="C:\Program Files (x86)\Trend Micro\OfficeScan\PCCSRV\pccnt\drv\X64"
set objShell = CreateObject("Shell.Application")
set FilesInZip = objShell.NameSpace(FichierZip).items
objShell.NameSpace(Extraire).CopyHere(FilesInZip)

[l_autodidacte]

Après relecture de ton message, je me suis rendu compte que le script ne se trouve pas dans le même dossier que le zip

Pour cela la ligne 12 du premier code devrait être remplacée par :
FichierZip = fso.GetAbsolutePathName("moteur") & "\tmengX64.zip".

La ligne 9 du second code devrait être remplacée par : FichierZip = Left(Wscript.ScriptFullName, Len(Wscript.ScriptFullName) - Len(Wscript.ScriptName)) & "Moteur\tmengX64.zip"

[pascaldu67]

Merci à vous !