pro CreateBatFile

phasefile=file_search('f:\data\0826\*.jps',count=number)
;獲取需要轉化的文件路徑

openw,1,'f:\data\0826\convert.bat'
for i=0,number-1 do begin
   filetemp=strmid(phasefile(i),strpos(phasefile(i),'\',/reverse_search)+1)

   printf,1,'jps2rin '+filetemp
endfor
close,1

end