I have been asked how one can get the full path of a project that may be nested within one or more folders.
The following snippet includes some elements that could be reused:
The following snippet includes some elements that could be reused:
Code:
on run tell application id "OFOC" tell front document window of front document repeat with oPanel in {sidebar, content} set lstValue to value of (selected trees of oPanel where class of its value is project) set lngProj to count of lstValue if lngProj > 0 then exit repeat end repeat if lngProj < 1 then return end tell end tell set oProject to first item of lstValue set lstPath to ProjectPath(oProject) set {dlm, my text item delimiters} to {my text item delimiters, "/"} set strPath to lstPath as Unicode text set my text item delimiters to dlm set strPath to do shell script ("printf '%q' " & quoted form of strPath) end run on ProjectPath(oProject) tell application id "OFOC" tell oProject set lstPath to {name} set oContainer to container end tell repeat while class of oContainer is not document set beginning of lstPath to name of oContainer set oContainer to container of oContainer end repeat end tell lstPath end ProjectPath