form Select a target directory
	word dir U:\matthias\experiment\related\praatscripts\concatenating-directory\onsets\
endform

#get the object numbers and the names of the selected Sounds  
n = numberOfSelected("Sound")
for i from 1 to n
   s'i'$ = selected$("Sound",'i')
   s'i' = selected("Sound",'i')
endfor

#now select the single sounds and write them to the directory chosen in the form
for i from 1 to n
   s$ = s'i'$
   s = s'i'
   select 's'
   Write to WAV file... 'dir$''s$'.wav
endfor