指定フォルダ内の拡張子がtheExtensionなファイルリストの取得

on getFileList(thePosixPath, theExtension)
	set theList to {}
	set theFilePath to thePosixPath as POSIX file
	set theFileList to list folder theFilePath
	repeat with curItem in theFileList
		if curItem contains theExtension then
			set end of theList to curItem as string
		end if
	end repeat
	return theList
end getAllShkList