Attribuer un chemin relatif

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:

---

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

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:

---

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:

---

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)

---

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 :oops:

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"

Merci à vous !