form Dialogue
	sentence openpath E:\praat\wav3
	sentence savepath E:\praat\wav3\new
endform

if right$(openpath$,1)<>"\"
	openpath$=openpath$+"\"
endif

if right$(savepath$,1)<>"\"
	savepath$=savepath$+"\"
endif


Create Strings as file list... fileList 'openpath$'*.wav

numberOfFiles=Get number of strings

for ifile from 1 to numberOfFiles

	select Strings fileList
	fileName$=Get string... 'ifile'
	
	simpleName$=fileName$-".wav"
	textGridName$=simpleName$+".TextGrid"
	pitchTierName$=simpleName$+".PitchTier"

	Read from file... 'openpath$''fileName$'

	To Pitch... 0 75 600
	Down to PitchTier
	Write to text file... 'savepath$''pitchTierName$'

	

	select Sound 'simpleName$'
	To TextGrid... "Word Segment Break" Break
	Write to text file... 'savepath$''textGridName$'

	select Sound 'simpleName$'
	Remove
	select TextGrid 'simpleName$'
	Remove
	select Pitch 'simpleName$'
	Remove
	select PitchTier 'simpleName$'
	Remove


endfor
select Strings fileList
Remove
exit Over!