# Load Files Template # # load all files matching a specific file name patern in a specific directory # files are loaded (and unloaded) one by one # # customize file name pattern (first variable below) # *.wav = all wav files # *.TextGrid = all TextGrid files # * = all files # etc. # # customize directory (second variable below) # chooseDirectory$ () = open a directory selector window # "/users/myself/data" = some directory path # # fileNamePattern$ = "*.wav" directoryName$ = chooseDirectory$ ("Choose a directory to read from:") Create Strings as file list... fileList 'directoryName$'/'fileNamePattern$' fileListID = selected ("Strings") numberOfFiles = Get number of strings clearinfo printline 'directoryName$' for fileNumber to numberOfFiles select fileListID currentFile$ = Get string... 'fileNumber' Read from file... 'directoryName$'/'currentFile$' nameAndType$ = selected$ () fileType$ = extractWord$ (nameAndType$, "") currentFileID = selected (fileType$) printline 'fileNumber' 'tab$' 'currentFile$' # do something with the file... beginPause ("What next?") buttonClicked = endPause ("Cancel", if fileNumber = numberOfFiles then "Done" else "Next file" fi, 2, 1) select currentFileID Remove goto CANCEL buttonClicked = 1 endfor label CANCEL select fileListID Remove