I tried this:
Code: Select all
$doc = Document.active
$doc = $doc.filePath
$code = '
tell application "Finder"
activate
open information window of document "$doc"
end tell'
Run AppleScript $code
Code: Select all
$doc = Document.active
$doc = $doc.filePath
$code = '
tell application "Finder"
activate
open information window of document "$doc"
end tell'
Run AppleScript $code
Code: Select all
$doc = Document.active
$path = $doc.filePath
$info = File.infoAtPath $path
$info_list = ''
foreach $i_key, $i_val in $info
$info_list &= "$i_key\t$i_val\n"
end
prompt $info_list
Code: Select all
$doc = Document.active
$docPath = $doc.filePath.expandedFilePath
$code = "
set docAlias to POSIX file \"$docPath\" as alias
tell application \"Finder\" to open information window of docAlias
"
$errorMessage = ''
$success = Run AppleScript $code, $errorMessage
If ! $success
Prompt 'AppleScript failed.', $errorMessage
End
Code: Select all
$doc = Document.active
$docPath = $doc.filePath.expandedFilePath
Code: Select all
$doc = Document.active
$docPath = $doc.filePath
$docPath = $docPath.expandedFilePath