impImage fname:="C:\Program Files\OriginLab\Origin2017\Samples\Image Processing and Analysis\myocyte1.tif" options.names.FNameToSht:=1 options.names.FNameToBk:=0;

pe_mkdir Folder path:=aa$;
pe_cd aa$;
string pth1$ = "…\Analyzing pictures\";
string fns, path$ = pth1$;
findfiles fname:=fns$ ext:="*.jpg";   
int n = fns.GetNumTokens(CRLF);            
string bkName$;
string fname$;
int m=n+1;
newbook name:="Matrices" sheet:=1;
newbook name:="Calibration" mat:=1;
impImage fname:="…\Analyzing pictures\Calibration\Calibration.jpg”;
imgResize lock:=1 unit:=pixel w:=400 h:=402 interpolate:=normal;
imgBinary t1:=11 t2:=160;
img2m;
m2w method:=direct xy:=noxy ow:=[Matrices]<Calibration>;
for(int ii = 1; ii<=n; ii++)               
{
    fname$ = fns.GetToken(ii, CRLF)$;
    newbook s:=0 mat:=1 result:=bkName$;   
     impimage orng:=[bkName$]msheet1;       
    matrix -pg DIM nCol1 nRow1;matrix -pg DIM nCol1 nRow1;
    imgResize lock:=1 unit:=pixel w:=400 h:=402 interpolate:=normal;
    imgC2gray;
    img2m;
    expMatASC type:=csv path:"…\Excel Export\%H_.csv"
}

img2m om:=[<new>]fname$!1

fname$ = fns.GetToken(ii, CRLF)$;
strFname$ = fname. GetFileName(1)$; //if 1, the file name without extension; if 0, file extension is kept

img2m om:=[<new>]strFname$!1;