set theOutputFolder to choose folder with prompt "Please select an output folder:"
tell application "Database Events"
make new database with properties {name:"Test", location:theOutputFolder}
save database "Test"
end tell
Adicione o comando save para salvar seu novo banco de dados. Será então visível no Finder.