Discussion :

[WellPlayed]

Bonjour,

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

Code :

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

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

[l_autodidacte]

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 :

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

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'