Below is a short example vb log REM ======================================================= DIM objApp SET objApp = CreateObject("Photoshop.Application") REM Use dialog mode 3 for show no dialogs DIM dialogMode dialogMode = 3 DIM idOpn idOpn = objApp.CharIDToTypeID( "Opn " ) DIM desc233 SET desc233 = CreateObject( "Photoshop.ActionDescriptor" ) DIM idnull idnull = objApp.CharIDToTypeID( "null" ) Call desc233.PutPath( idnull, "C:\\Documents and Settings\\Mike\\Desktop\\white-to-to purple.psd" ) Call objApp.ExecuteAction( idOpn, desc233, dialogMode ) REM ======================================================= DIM objApp SET objApp = CreateObject("Photoshop.Application") REM Use dialog mode 3 for show no dialogs DIM dialogMode dialogMode = 3 DIM idsetd idsetd = objApp.CharIDToTypeID( "setd" ) DIM desc234 SET desc234 = CreateObject( "Photoshop.ActionDescriptor" ) DIM idnull idnull = objApp.CharIDToTypeID( "null" ) DIM ref140 SET ref140 = CreateObject( "Photoshop.ActionReference" ) DIM idLyr idLyr = objApp.CharIDToTypeID( "Lyr " ) DIM idOrdn idOrdn = objApp.CharIDToTypeID( "Ordn" ) DIM idTrgt idTrgt = objApp.CharIDToTypeID( "Trgt" ) Call ref140.PutEnumerated( idLyr, idOrdn, idTrgt ) Call desc234.PutReference( idnull, ref140 ) DIM idT idT = objApp.CharIDToTypeID( "T " ) DIM desc235 SET desc235 = CreateObject( "Photoshop.ActionDescriptor" ) DIM idUsrM idUsrM = objApp.CharIDToTypeID( "UsrM" ) Call desc235.PutBoolean( idUsrM, False ) DIM idLyr idLyr = objApp.CharIDToTypeID( "Lyr " ) Call desc234.PutObject( idT, idLyr, desc235 ) Call objApp.ExecuteAction( idsetd, desc234, dialogMode ) REM ======================================================= DIM objApp SET objApp = CreateObject("Photoshop.Application") REM Use dialog mode 3 for show no dialogs DIM dialogMode dialogMode = 3 DIM idHd idHd = objApp.CharIDToTypeID( "Hd " ) DIM desc236 SET desc236 = CreateObject( "Photoshop.ActionDescriptor" ) DIM idnull idnull = objApp.CharIDToTypeID( "null" ) DIM list67 SET list67 = CreateObject( "Photoshop.ActionList" ) DIM ref141 SET ref141 = CreateObject( "Photoshop.ActionReference" ) DIM idLyr idLyr = objApp.CharIDToTypeID( "Lyr " ) DIM idOrdn idOrdn = objApp.CharIDToTypeID( "Ordn" ) DIM idTrgt idTrgt = objApp.CharIDToTypeID( "Trgt" ) Call ref141.PutEnumerated( idLyr, idOrdn, idTrgt ) Call list67.PutReference( ref141 ) Call desc236.PutList( idnull, list67 ) Call objApp.ExecuteAction( idHd, desc236, dialogMode ) REM ======================================================= DIM objApp SET objApp = CreateObject("Photoshop.Application") REM Use dialog mode 3 for show no dialogs DIM dialogMode dialogMode = 3 DIM idslct idslct = objApp.CharIDToTypeID( "slct" ) DIM desc237 SET desc237 = CreateObject( "Photoshop.ActionDescriptor" ) DIM idnull idnull = objApp.CharIDToTypeID( "null" ) DIM ref142 SET ref142 = CreateObject( "Photoshop.ActionReference" ) DIM idLyr idLyr = objApp.CharIDToTypeID( "Lyr " ) Call ref142.PutName( idLyr, "Layer 3" ) Call desc237.PutReference( idnull, ref142 ) DIM idMkVs idMkVs = objApp.CharIDToTypeID( "MkVs" ) Call desc237.PutBoolean( idMkVs, False ) Call objApp.ExecuteAction( idslct, desc237, dialogMode ) REM ======================================================= DIM objApp SET objApp = CreateObject("Photoshop.Application") REM Use dialog mode 3 for show no dialogs DIM dialogMode dialogMode = 3 DIM idInvr idInvr = objApp.CharIDToTypeID( "Invr" ) Call objApp.ExecuteAction( idInvr, , dialogMode ) REM ======================================================= DIM objApp SET objApp = CreateObject("Photoshop.Application") REM Use dialog mode 3 for show no dialogs DIM dialogMode dialogMode = 3 DIM idMk idMk = objApp.CharIDToTypeID( "Mk " ) DIM desc238 SET desc238 = CreateObject( "Photoshop.ActionDescriptor" ) DIM idnull idnull = objApp.CharIDToTypeID( "null" ) DIM ref143 SET ref143 = CreateObject( "Photoshop.ActionReference" ) DIM idAdjL idAdjL = objApp.CharIDToTypeID( "AdjL" ) Call ref143.PutClass( idAdjL ) Call desc238.PutReference( idnull, ref143 ) DIM idUsng idUsng = objApp.CharIDToTypeID( "Usng" ) DIM desc239 SET desc239 = CreateObject( "Photoshop.ActionDescriptor" ) DIM idType idType = objApp.CharIDToTypeID( "Type" ) DIM desc240 SET desc240 = CreateObject( "Photoshop.ActionDescriptor" ) DIM idLvls idLvls = objApp.CharIDToTypeID( "Lvls" ) Call desc240.PutInteger( idLvls, 4 ) DIM idPstr idPstr = objApp.CharIDToTypeID( "Pstr" ) Call desc239.PutObject( idType, idPstr, desc240 ) DIM idAdjL idAdjL = objApp.CharIDToTypeID( "AdjL" ) Call desc238.PutObject( idUsng, idAdjL, desc239 ) Call objApp.ExecuteAction( idMk, desc238, dialogMode ) If you do like Xbytor suggested and replace the variables with function calls i.e. Call desc238.PutObject(objApp.CharIDToTypeID( "Usng" ), objApp.CharIDToTypeID( "AdjL" ), desc239 ) it doesn't matter that Adobe changed the way the varibles are named. To me niether the old style of idNumber or new style of idCharID makes the log any more readable.
... View more