仅从 AppleScript 中的别名列表中获取常规文件

Question

如果我有别名列表，如何删除非常规文件的别名或创建仅包含常规文件的新列表。主要问题是如何确定别名是否是常规文件。我尝试过这个，但它很老套，而且并不总是有效（就像使用 .app 文件一样）。

if (theFile as string) does not end with ":" then ...

我该怎么做？

Answer 1

您可以使用文件的“kind”属性来确定它是什么......

set theFile to choose file
tell application "System Events"
    set theKind to kind of theFile
end tell

if theKind is not "Application" then
    return "Not an application"
else
    return "Is an application"
end if

Answer 2

这看起来有点hacky，但这似乎工作得很好：

tell application "Finder"
    set regularFiles to {}
    repeat with theFile in theFiles
        if the URL of theFile does not end with "/"
            set end of regularFiles to theFile
        end if
    end repeat
end tell

我最初尝试测试最后的“：”路径，但它对于捆绑应用程序和类似的文件（实际上是文件夹）来说是错误的。