#This script opens a form where a directory path can be specified.
#All .wav files located in specified folder are opened and matching TextGrids
#are created. Each TextGrid has 1 point tier (vowel)
#
#Created by Jessica Sertling Miller - sertling@uiuc.edu
#November 10, 2005
##############################################################################


form Enter parent directory name
	comment Enter directory name where wav. files are kept
	sentence dirWav
endform

Create Strings as file list... Sounds 'dirWav$'/*.wav

select Strings Sounds
ns = Get number of strings

for i to ns
	select Strings Sounds
	soundName$ = Get string... i
	Read from file... 'dirWav$'/'soundName$'
	To TextGrid... "1" 1
endfor

select Strings Sounds
Remove