皆さんどうもありがとうございます
とりあえず、その部分を抜き出してみました
見難いかと思いますが、アドバイスお願いします。
今のままだと、拡張子がAAA_01.JPGから始まって最後にAAA_00.JPGとゼロが最後になってしまうんです。
やりたいことはゼロから始まってほしいのです。
AAA_00.JPG,AAA_01_JPG.....みたいに
//-----▼ファイル名をリネームするため一旦ダブらない名前に変換
notesel list//JPEGファイルを一旦格納
//mes "4-> JPEGファイル一覧"
//mes list //格納したファイルを表示
B=B+1//乱数の代わり これ重要
//mes B
I=0//カウント設定ゼロ
repeat s//ファイルの数だけリピート開始
noteget get1,cnt//格納したファイル名を取り出す
NAMESET=""+B+"1000"+strf("%02d",I)+".JPG"//ファイル名作成
rename get1,NAMESET//リネーム後のファイル名
//mes "5 -> "+get1
//mes NAMESET
I=I+1
loop
//mes "書き換え終了"
//-----▲
//-----▼ファイル名変換 本番
I=0//カウント設定ゼロ
dirlist list,"*.JPG"//ファイル名が変わったので再度フォルダー読み込み
notesel list//JPEGファイルを一旦格納
repeat s//ファイルの数だけリピート開始
//mes "書き換え開始"
noteget get1,cnt//格納したファイル名を取得
//rename get1,FOLDER+"-"+I+".JPG"//リネーム後のファイル名
//mes "get1 -> "+get1
NAMESET=""+FOLDER+"_"+strf("%02d",I)+".JPG"//ファイル名作成
rename get1,NAMESET//リネーム後のファイル名
mes "リネーム:"+get1+"=>"+NAMESET
I=I+1
loop
mes "書き換え終了"
//-----▲
//-----▼
dirlist list,"*.JPG":s=stat//JPEGファイルだけを数えて s に代入
mes "3-> JPGファイル数: "+s+" 個あります"
//-----▲
//-----▼
I=s//に代入
//-----▲
//-----▼ファイル名をリネームするため一旦ダブらない名前に変換
notesel list//JPEGファイルを一旦格納
mes list //格納したファイルを表示
if I>12 { I=12 } //もしファイル数が12個以上だったら12個までしかCVSに書かないようにする
mes "I= "+I
repeat I//ファイルの数だけリピート開始
noteget get1,cnt//格納したファイル名を取り出す
FILELIST=FILELIST+","+FOLDER+"/"+get1//ファイル名作成 フォルダ名付き
loop