oridir=curdir() indir00='/sasstore2/dat1/syashir1/www_cdaw/www4/meetings/2020_Kodaikanal/events/' todir00='/sasstore2/dat1/syashir1/www_cdaw/www_nobackup/meetings/2020_Kodaikanal/events/' evdirs=yfile_list(indir00) for j=1, n_elements(evdirs)-1 do begin ;for j=0, 0 do begin indir01=indir00+evdirs[j] todir01=todir00+evdirs[j] inst=['aia','hmi','lasco','stereo_a','stereo_b'] for i=0, n_elements(inst)-1 do begin indir02=indir01+'/'+inst[i] todir02=indir01+'/'+inst[i] if file_exist(indir02) then begin if not file_exist(todir01) then yspawn,'mkdir -p '+todir01 cmd='mv '+indir02+' '+todir01+'/' print, cmd yspawn,cmd cd, indir01 cmd='ln -s ../../../../../www_nobackup/meetings/2020_Kodaikanal/events/'+evdirs[j]+'/'+inst[i] print, cmd yspawn,cmd endif endfor endfor;j cd,oridir end