Add label column in applescript

Question

I'm using snow leopard at the moment and this is a section of the script and this works, i just need to add the column label into the window.
open theFolder1
          tell front Finder window
                    set properties to {current view:list view, position:{0, 0}, bounds:{0, 100, 400, 500}, toolbar visible:true, sidebar width:0}
                    set text size of its list view options to 10
  close theFolder1
          end tell
I've tried adding the line
set visible of column label column to true
but I get the error
error "Finder got an error: Can’t make label column into type integer." number -1700 from label column to integer
Can this be done?
Many Thanks
Matt

Answer 1

Hello
As far as I can tell, visible property of Finder > column class is broken. E.g.,
tell application "Finder"
    tell Finder window 1
        set current view to list view
        tell its list view options
            --return columns -- for test
            set column id label column's visible to true -- [*1] NG
        end tell
        --update target -- no effect
    end tell
        [1] This should work but does not.
            The "visible" property is set to true but it has no effect in list view.
end tell
A workaround would be to use GUI scripting as follows. Tested under 10.6.5.
* In order to use GUI scripting, you need to enbale the option: System Preferences > Universal Access > Enable access for assistive devices.
tell application "Finder"
    tell Finder window 1
        my show_label_in_list_view(it)
    end tell
end tell
on show_label_in_list_view(fwin)
        reference fwin : reference of target Finder window
    tell application "Finder"
        activate
        tell fwin
            set current view to list view
        end tell
    end tell
    tell application "System Events"
        tell process "Finder"
            set view_options to a reference to (window 1 whose subrole = "AXSystemFloatingWindow")
            set was_open to exists view_options
            if not was_open then
                tell menu bar 1's menu bar item 5 -- View
                    tell menu 1's menu item -1 -- Show View Options
                        click
                    end tell
                end tell
            end if
            tell view_options
                tell group 1
                    tell checkbox 4 -- Label
                        if value = 0 then click
                    end tell
                end tell
                if not was_open then click button 1 -- Close
            end tell
        end tell
    end tell
end show_label_in_list_view
Regards,
H