Passer tous les arguments dans un Array

Bonjour,

J'aimerais passer tout les arguments que je récupère en Array
Voici mon code actuellement:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Const psNeverShowDebugger = 1, psDebuggerOnError = 2, psBeforeRunning = 3   Dim appRef Set appRef = CreateObject("Photoshop.Application")   Dim infosDoc infosDoc = Wscript.arguments()   Dim JSXFile JSXFile = Wscript.arguments(0)   appRef.DoJavaScriptFile "C:\Program Files\Adobe\Adobe Photoshop 2020\Presets\Scripts\"+JSXFile+".jsx", Array(infosDoc), psNeverShowDebugger

---

Je get bien le premier argument dans JSXFile mais pas les autres arguments dans infosDoc, si quelqu'un à une solution

Merci

Bienvenue sur DVP

Il faut savoir que "Wscript.Arguments" est un objet qui n'est accessible que si on l'instancie par le mot clé Set
Le résultat est une collection qui peut être vide ou non(0 ou plusieurs éléments), c'est en fait une sorte de tableau (Array)

Pour mettre tous les arguments dans un tableau :

Code:

---

1 2 3 4 5 6 7 8 9

Option Explicit Dim oArgs, x, I, M Set oArgs = Wscript.Arguments x = oArgs.Length-1 ReDim M(0) For I = 0 To x ReDim Preserve M(I) M(I) = oArgs(I) : MsgBox M(I) ' affichage de chaque élément Next

---

Le tableau(Array) M contient tous les arguments voulus

[EDIT] : L'ajout de parenthèses dans Wscript.Arguments() provoque l'erreur :
Cet objet ne gère pas cette propriété ou cette méthode 'Wscript.arguments'