# This script combines (not concatenates) all the files in the folder
# Place this script in the same folder with sounds files


form 
	comment Specify the directory
	sentence InputDir ./
endform

clearinfo

Create Strings as file list... list 'inputDir$'*.wav
number_files = Get number of strings

for i from 1 to number_files
	select Strings list
	fileName1$ = Get string... i
	Read from file... 'inputDir$''fileName1$'

	# The first file is simply renamed as an "base file"

	if i = 1
		Rename... base
	endif

	# From next time on, you combine a sound with the "base file"
	# Call the resulting file the "base file" again

	if i > 1
		Formula... self[col] + Sound_base[col]
		Rename... base
	endif
endfor

# Write out the results

Write to WAV file... combined.wav


# Clean up

select all
Remove

# Read it

Read from file... 'inputDir$'combined.wav