form Select a target directory word: "dir", "C:\experimentFiles\" endform @getDirSep @getDirSep if (right$(dir$,1) <> dirSep$ ) dir$ = dir$ + dirSep$ endif #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] selectObject: s Write to WAV file... 'dir$''s$'.wav endfor procedure getDirSep if windows == 0 dirSep$ = "/" else dirSep$ = "\" endif endproc