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