set showFolder to true -- open at startup
set folderName to "testfolder"
set folderPath to (path to desktop as string) & folderName & ":"
set desktopWidth to (word 3 of (do shell script "defaults read
/Library/Preferences/com.apple.windowserver | grep -w " & "Width")) as
number
set desktopHeight to (word 3 of (do shell script "defaults read
/Library/Preferences/com.apple.windowserver | grep -w " & "Height"))
as number
tell application "Finder"
if not (exists folder folderName of desktop) then make new folder at
desktop with properties {name:folderName}
if showFolder is true then
open folderPath
tell front window
set toolbar visible to false
set statusbar visible to false
set sidebar width to 0
set bounds to {33, 40, desktopWidth, desktopHeight}
set current view to list view
tell its list view options
set icon size to large icon
set visible of column kind column to false
set visible of column size column to false
-- set width of date column to 400
set visible of column creation date column to true
set visible of column comment column to true
set width of column comment column to 200
set sort column to name column
end tell
set current view to icon view
tell its icon view options
set icon size to 128
set arrangement to arranged by name
end tell
close
end tell
end if
end tell
_______________________________________________
Do not post admin requests to the list. They will be ignored.
Applescript-users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
http://lists.apple.com/mailman/options/applescript-users/email@hidden
