function newfilename,filter=filter,path=path,model=model

;	Returns name of new file after model given.

if n_elements(filter) le 0 then filter=''

	if n_elements(model) le 0 then begin
print,'You must define MODEL'	&	goto,exit
	endif

model_save=model
model=strcompress(model,/rem)

Length=strlen(model)

	CASE !version.OS OF

'windows':	Delim='\'

'Win32':	Delim='\'

ELSE:		Delim='/'

	ENDCASE

if n_elements(path) gt 0 then $
	Name_list=findfile(path+Delim+Filter,count=count) $
		else Name_list=findfile(Filter,count=count)

count=count > 1

name=strarr(count)	&	exist_length=intarr(count)
Last_char=strarr(count)	&	First_char=strarr(count)

	for j=0,n_elements(name_list)-1 do begin
name(j)=(name_extract(name_list(j)))(1)
exist_length(j)=strlen(name(j))
Last_char(j)=strmid(name(j),exist_length(j)-Length,length)
First_char(j)=strmid(name(j),0,exist_length(j)-Length)
	endfor

extension=(name_extract(name_list(0)))(2)

if extension ne '' then extension='.'+extension

index=(where(Last_char eq model))

	if equiv(index,-1) then begin
new_name=$
strmid('00000000',0,8-Length)+model+strmid(filter,1,strlen(filter)-1)
goto,exit
	endif

name=name(index)
exist_length=exist_length(index)
Last_char=Last_char(index)
First_char=First_char(index)

Max_number=max(First_char,imax)
Sel=string(strlen(Max_number))
Max_number=Max_number+1
Name_format=strcompress('(I'+Sel+'.'+Sel+')',/rem)
Number=string(Max_number,format=Name_format)

;First_char=First_char(where(First_char ne '00' and first_char ne ''))

new_name=Number+Last_char(0)+extension

exit:
model=model_save
return,new_name

end