BBedit a folder

A script that will open the current folder in BBedit browser

try
    tell app "Finder" to set f to (folder of the front window) as alias
on error -- no open folder windows
    set f to path to desktop folder as alias
end try

tell application "BBEdit 6.5"
    activate
    open f
end tell