directory$ = "/Users/zangsir/Desktop/JINGJU/arias" strings = do ("Create Strings as file list...", "list", directory$ + "/*.wav") numberOfFiles = do ("Get number of strings") for ifile to numberOfFiles selectObject (strings) fileName$ = do$ ("Get string...", ifile) do ("Read from file...", directory$ + "/" + fileName$) endfor directory$ = "/Users/zangsir/Desktop/JINGJU/arias" strings = do ("Create Strings as file list...", "list", directory$ + "/*.TextGrid") numberOfFiles = do ("Get number of strings") for ifile to numberOfFiles selectObject (strings) fileName$ = do$ ("Get string...", ifile) do ("Read from file...", directory$ + "/" + fileName$) endfor