pro file_dir,filter,path=path,filename=filename

;	Creates a file containing file list in a given subdirectory. 
;	For MS Windows Only.

if n_elements(filter) le 0 then filter='*.*'
if n_elements(filename) le 0 then filename='files.lst'
if n_elements(path) gt 0 then pushd,path

a=findfile(filter)

if n_elements(path) gt 0 then popd

a=a(sort(a))	&	Sz=size(a)

if (Sz)(0) gt 0 then Sz=Sz(1) else Sz=0

for j=0,Sz-1 do if strmid(a(j),strlen(a(j))-1,1) eq '\' then $
	if n_elements(b) le 0 then b=j else b=[b,j]

N_b=n_elements(b)

	if N_b gt 0 then begin
a_save=a(b)
for j=0,N_b-1 do a=a(where(a ne a_save(j)))
a=[a_save,a]
	endif

openw,lun,filename,/get_lun
for j=0,Sz-2 do printf,lun,a(j)
writeu,lun,a(Sz-1),'1A'xb
free_lun,lun

end