form Files comment the input directory sentence InputDir ./ comment low frequency bound positive low 80 comment high frequency bound positive high 10000 endform createDirectory ("original") Create Strings as file list... list 'inputDir$'*.wav numberOfFiles = Get number of strings for ifile to numberOfFiles select Strings list fileName$ = Get string... ifile Read from file... 'inputDir$''fileName$' Write to WAV file... ./original/'fileName$' Remove noise: 0.2, 0.1, 0.025, low, high, 40, "Spectral subtraction" Write to WAV file... ./'fileName$' select all minus Strings list Remove endfor select all Remove