"file"+cnt+".txt"とファイル名を一定の規則にしたがって変更するなど etc...
一応、特許取得済みですので、転載などはやめてください。(ウソ)
#uselib "msvcrt" #func rename "rename" str, str chdir ""//リネームしたいファイルがあるフォルダー dirlist list,"*.jpg":s=stat notesel list repeat s if cnt>0:get2="00" if cnt>10:get2="0" if cnt>100:get2="" noteget get1,cnt rename get1,getpath(get1,32)+""//リネーム後のファイル名 if stat!0:dialog "失敗しました。"//statが0以外だと失敗です。 loop