function[n_new]=get_etl_flux_files(etldir,localdir)
n_new=0;
dbg=0;

% first see if anything already in data/new (manual xfer)
myfilelist = dir([localdir 'new/*flux_5min*.txt' ]);
if ~isempty(myfilelist)
    n_new=length(myfilelist);
else
    % see what's on the server:
    r_filelist = dir ([ etldir '*flux_5min*.txt']);
    numetl=length(r_filelist);
    % see what we've got
    myfilelist = dir([localdir 'read/*flux_5min*.txt' ]);
    % e.g. STRATUS_2011_PSD_flux_5min_2011_04_02_092.txt
    numold=length(myfilelist);
    if numold < numetl,
        for iex=1:numetl
            cfile=[ etldir  r_filelist(iex).name ];
            if exist([localdir 'read/' r_filelist(iex).name],'file') == 0 ...
                    && exist([localdir 'new/' r_filelist(iex).name],'file') == 0
                if dbg==1
                    disp(['will copy ' cfile ' to ' localdir 'new']);
                end
                copyfile(cfile, [localdir 'new']);
                n_new=n_new + 1;
            end
        end
    end
end
fprintf('%d files to process\n', n_new);



