HSP3.1です
下記のスクリプトで
一行目のimgフォルダのファイルによって
最下行のsortが巧くいく場合とシステムエラー1が
出る場合が有ります
imgフォルダのファイルは壊れていません
何処がおかしいのでしょうか?
足りない部分は追加しますのでよろしくお願いします
*re_start if forg=0{chdir jisin+"\\img"}else{chdir folderimg} dirlist2h 1 dirlist2 fnlistsize,"*.*",1 ;IMGファイル名GET sdim _fnlist,fnlistsize dirlist2r _fnlist notesel _fnlist fnmax=notemax ;IMGファイル数 if fnmax>0 { repeat fnmax=fnmax-1:noteget dummy,fnmax if instr(dummy,0,".")=-1 {notedel fnmax};フォルダ名カット if fnmax=0 {break} loop } fnmax=notemax if fnmax=0 { dim _fnlist dim npfnlist mes1=" jpgファイルが有りません\nフォルダを指定して下さい":goto *moto } if ddnn="N" { ;ファイル名のみでソート**************************** fno=0 repeat fnmax notesel _fnlist noteget nnn,fno nnng=getpath(nnn,8) notesel npfnlist noteadd nnng fno=fno+1 loop wait sortnote npfnlist,0