property monitor_width : 1920
property monitor_height : 1200
set the startup_disk to (path to startup disk)
tell application “Finder”
activate
set visible of (every process whose visible is true and frontmost is false) ¬
to false
– BOTTOM WINDOW
set this_window to make new Finder window
set the target of this_window to the startup_disk
set the bounds of this_window to {0, (monitor_height * 0.55) div 1, ¬
monitor_width, monitor_height}
set the current view of this_window to column view

end tell
set display_x_size to 6000

set cur_app to (path to frontmost application as Unicode text)

tell application cur_app
tell front window
set {x1, y1, x2, y2} to (get bounds)
set win_width to (x2 - x1)
set room_right to (display_x_size - x2)
if room_right > win_width then
set x1 to (x1 + win_width)
set x2 to (x2 + win_width)
else
set x2 to display_x_size
set x1 to (display_x_size - win_width)
end if
set bounds to {x1, y1, x2, y2}
end tell
end tell
set the startup_disk to (path to startup disk)
tell application “Finder”
activate
set visible of (every process whose visible is true and frontmost is false) ¬
to false

– TOP WINDOW
set this_window to make new Finder window
set the target of this_window to the startup_disk
set the bounds of this_window to {0, (monitor_height * 0.036) div 1, ¬
monitor_width, (monitor_height * 0.53) div 1}
set the current view of this_window to column view
end tell
set display_x_size to 6000

set cur_app to (path to frontmost application as Unicode text)

tell application cur_app
tell front window
set {x1, y1, x2, y2} to (get bounds)
set win_width to (x2 - x1)
set room_right to (display_x_size - x2)
if room_right > win_width then
set x1 to (x1 + win_width)
set x2 to (x2 + win_width)
else
set x2 to display_x_size
set x1 to (display_x_size - win_width)
end if
set bounds to {x1, y1, x2, y2}
end tell
end tell
tell application “Finder”
activate
select Finder window 1
set target of Finder window 1 to folder “Desktop” of folder “adamwolson” of folder “Users” of startup disk
set current view of Finder window 1 to list view
select Finder window 2
set target of Finder window 1 to folder “Tutorial Sections” of folder “UCD Thesis” of folder “Personal Documents” of folder “Documents” of folder “My Files” of disk “Media 1TB”
set current view of Finder window 1 to list view
end tell

tell application “Finder” to open desktop

and the second window I want to open the following path which I can get to run by itself but I want both windows to open in the specified size like the preveous script does.

tell application “Finder” to open folder “Media 1TB:My Files:Documents:Personal Documents:UCD Thesis”

Thanks for any help on the matter!

This script sets up two windows to open and then moves them to my second 23″ monitor.

property monitor_width : 1920
property monitor_height : 1200
set the startup_disk to (path to startup disk)
tell application “Finder”
activate
set visible of (every process whose visible is true and frontmost is false) ¬
to false
– BOTTOM WINDOW
set this_window to make new Finder window
set the target of this_window to the startup_disk
tell application “Finder” to open desktop
set the bounds of this_window to {0, (monitor_height * 0.55) div 1, ¬
monitor_width, monitor_height}
set the current view of this_window to column view

end tell
set display_x_size to 6000

set cur_app to (path to frontmost application as Unicode text)

tell application cur_app
tell front window
set {x1, y1, x2, y2} to (get bounds)
set win_width to (x2 - x1)
set room_right to (display_x_size - x2)
if room_right > win_width then
set x1 to (x1 + win_width)
set x2 to (x2 + win_width)
else
set x2 to display_x_size
set x1 to (display_x_size - win_width)
end if
set bounds to {x1, y1, x2, y2}
end tell
end tell
set the startup_disk to (path to startup disk)
tell application “Finder”
activate
set visible of (every process whose visible is true and frontmost is false) ¬
to false

– TOP WINDOW
set this_window to make new Finder window
set the target of this_window to the startup_disk
set the bounds of this_window to {0, (monitor_height * 0.036) div 1, ¬
monitor_width, (monitor_height * 0.53) div 1}
set the current view of this_window to column view
end tell
set display_x_size to 6000

set cur_app to (path to frontmost application as Unicode text)

tell application cur_app
tell front window
set {x1, y1, x2, y2} to (get bounds)
set win_width to (x2 - x1)
set room_right to (display_x_size - x2)
if room_right > win_width then
set x1 to (x1 + win_width)
set x2 to (x2 + win_width)
else
set x2 to display_x_size
set x1 to (display_x_size - win_width)
end if
set bounds to {x1, y1, x2, y2}
end tell
end tell

Anyone knows how to write a script to for InDesign to state the x and y coordinates of the top left corner of a frame (both text and picture frames)?

P

It’s working now

J

open folder “macintosh hd:applications”

My Applications folder is not in the home folder, but in Macintosh HD (name of drive).

however, i cannot get an Applescript to function using this : filepath notation. i continually get “Finder got an error: Can’t get folder” no matter what i try.  

Try -

open folder “Applications” of startup disk

instead of

open folder “Home:Applications”

I copied the script but always get an error saying:

Error in Finder: impossible to obtain folder “Home:Applications”.

I tried other folders inside home but to no avail.

Any help would be appreciated

Using Script Editor 2.1.1. / 10.4.7.

Thanks

In the meantime, have you looked into using IMAP instead of POP? IMAP enables you to do exactly what you’re talking about. And from within Mail you can even download and ’synch’ a local copy of your IMAP folders so that just in case your IMAP server fails, you still have a local copy.