Select files by glob.applescript

-- get path of Finder window
tell application "Finder"
	try
		set finder_window to window 1
	on error
		error "There are no Finder windows"
	end try
	set start_path to POSIX path of (target of window 1 as alias)
end tell

-- get user input
display dialog "Glob expression" default answer "*.md"

-- get matching files
try
	set posix_matches to do shell script "ls -d " & ¬
	quoted form of start_path & text returned of result
on error
	return
end try

-- convert each path string to alias
set matches to {}
repeat with match in paragraphs of posix_matches
	set matches to matches & (POSIX file match)
end repeat

-- select the matches
tell finder_window
	activate
	select matches
end tell