## Creating the list of files in given directory dir$="C:\usr\pollak\www\html\vyu\b2m31zre\signaly\T17200\" ext$="BIN" Create Strings as file list... list 'dir$'/*.'ext$' head_words = selected("Strings") file_count = Get number of strings ## Loop through the list of files: ## - extracting each name and reading it into the Objects list for current_file from 1 to file_count select Strings list filename$ = Get string... current_file Read Sound from raw 16-bit Little Endian file... 'dir$''filename$' Override sampling frequency... 48000 endfor