#This script opens all the sound files in a folder and checks if they are mono or stereo
#If they are stereo it converts them to mono (and with a little development of the script, could save
#them to the original directory as mono, now it has to be done afterwards manually).
#Riikka Ullakonoja
#5.6.2007

form Open all files in directory and check if stereo
  sentence Directory ..U:/temp/
endform

Create Strings as file list... list 'directory$'*
numberOfFiles = Get number of strings
for ifile to numberOfFiles
	filename$ = Get string... ifile
		# You can add some filename extensions that you want to be excluded to the next line.
		if right$ (filename$, 4) <> ".doc" and right$ (filename$, 4) <> ".xls" and right$ (filename$, 4) <> ".XLS" and right$ (filename$, 4) <> ".TXT" and right$ (filename$, 4) <> ".txt" and right$ (filename$, 4) <> ".dat" and right$ (filename$, 4) <> ".DAT"
			# nowarn This is a stereo sound. It will be played as stereo but analysed as mono.
			Read from file... 'directory$''filename$'
			# Check the number of channels in the sound file
			channels = Get number of channels
				if channels = 2
				Convert to mono
				# You could develop this further in the following way
				# Write to wav file... 'directory$''filename$'
				endif

		endif
	select Strings list
endfor
select Strings list
Remove