FUNCTION get_files,new_path,new_filter

                   chk = chk_dir(new_path)
                    IF chk EQ 0 THEN BEGIN
                        msg = WIDGET_MESSAGE("No such directory: ")
                        RETURN,-1
                    ENDIF

                   files_f = ['']
                   dirs_f  = ['']

                   IF STRCOMPRESS(new_filter,/REMOVE_ALL) EQ '' THEN BEGIN
                    new_filter = PICKFILE( PATH = new_path)
                    IF new_filter EQ '' THEN RETURN,-1 ; *** if canceled ***
                    lc = RSTRPOS(new_filter, !delimiter)

                    files_f = [files_f, new_filter]
                    dirs_f  = [dirs_f, new_path]

                   ENDIF ELSE BEGIN
                    CD, new_path, CURRENT = old_dir
                    filter = new_filter
                    tempf = FINDFILE(filter,COUNT=c)
                    tmp = 'ls ' + new_path +  new_filter
                    spawn,tmp,list
print,list
                    n_list = N_ELEMENTS(list)
                   FOR j=0,n_list-1 DO BEGIN
                     name = STRCOMPRESS(list(j),/REMOVE_ALL)
                     lc = RSTRPOS(name, !delimiter)
                     name = STRMID(name,lc+1,STRLEN(name)-lc)
                     files_f = [files_f, name]
                     dirs_f  = [dirs_f, new_path]
                    ENDFOR
                    CD, old_dir

                   ENDELSE
 
                  f_index = WHERE(files_f GT '')
                  IF f_index(0) GT -1 THEN BEGIN
                   files_f = files_f(f_index)
                    dirs_f  = dirs_f(f_index)
                   ENDIF ELSE BEGIN
                  files_f = ['No files found']	  

                  ENDELSE
 
                  ; IF files_f(0) NE 'No files found' THEN wloadinfo1           
                 ; END 
              ; ELSE: donothing = 0
              ;ENDCASE

RETURN,{files_f:files_f,dirs_f:dirs_f}
END