FUNCTION path_file,files

 IF N_ELEMENTS(files) EQ 0 THEN RETURN,-1

 n = N_ELEMENTS(files)

 dirs_f = STRARR(n)
 files_f= STRARR(n)

    FOR i=0,n-1 DO BEGIN
       name = STRCOMPRESS(files(i),/REMOVE_ALL)
       lc = RSTRPOS(name, !delimiter)
       files_f(i) = STRMID(name,lc+1,STRLEN(name)-lc)
       dirs_f(i) =  STRMID(name,0,lc+1)
    ENDFOR

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