tell front workspace
-- Establish the path to the current workspace
set workspacePath to pathif workspacePath is missing value thendisplay dialog "The current workspace has not yet been saved anywhere." with title dialogTitle with icon 0 ¬buttons {"OK"} default button "OK" giving up after 5returnend if
-- Get the path that should prefix all media file paths
tell application "System Events"set sharedPath to path of container of file workspacePathend tell
end tell