############################################################
#  Written by Kyuchul Yoon (kyoon@ynu.ac.kr)
#  The script reads in all the .wav files from the specified directory
#  And their .TextGrid files too.
############################################################

# Get the user input
form Select files and parameters
	word fileToProcess_(extension_only) wav
	word subFolderToProcess korean.score.1
endform

# Randomize all the wav files
Create Strings as file list... fileList 'subFolderToProcess$'\*.'fileToProcess$'
Sort
numFiles = Get number of strings
#pause 'numFiles' files identified. Continue?

# Read in the files
for i to numFiles
	select Strings fileList
	strFileName$ = Get string... i
	prefix$ = strFileName$ - ".wav"
	tgridName$ = prefix$ + ".TextGrid"
	Read from file... 'subFolderToProcess$'\'strFileName$'
	Read from file... 'subFolderToProcess$'\'tgridName$'
endfor
select Strings fileList
Remove
############ END OF SCRIPT ###############