AppleScript:如何在没有隐藏文件的情况下获取文件夹中的文件?

问题描述

其实我有两个问题.

当我尝试在文件夹中获取文件时如何排除 .DS_STORE、Icon 等隐藏文件?我试过没有隐形"，但它似乎不起作用.

How to exclude hidden files like .DS_STORE, Icon when I try to get files in folder ? I've tried "without invisibles" but it seems not working.

如何将我的 var the_new_folder 设置为现有文件夹(如果已存在)?

How to set my var the_new_folder as an existing folder if already exists ?

感谢您的回答.

我的代码:

--
-- Get all files in a selected folder
-- For each file, create a folder with the same name and put the file in
--

tell application "Finder"
    set the_path to choose folder with prompt "Choose your folder..."
    my file_to_folder(the_path)
end tell

on file_to_folder(the_folder)
    tell application "Finder"

        -- HELP NEEDED HERE
        -- HOW TO EXCLUDE HIDDEN FILES (Like Icon, .DS_STORE, etc)
        set the_files to files of the_folder

        repeat with the_file in the_files

            -- Exclude folder in selection
            if kind of the_file is not "Folder" then
                set the_path to container of the_file
                set the_file_ext to name extension of the_file

                -- Remove extension of the file name
                set the_file_name to name of the_file as string
                set the_file_name to text 1 thru ((offset of the_file_ext in (the_file_name)) - 2) of the_file_name

                -- Make the new folder with the file name
                try
                    set the_new_folder to make new folder at the_path with properties {name:the_file_name}
                on error
                    -- HELP NEEDED HERE
                    -- HOW TO SET the_new_folder AS THE EXISTING FOLDER
                end try

                -- Move the file in the new folder
                move the_file to the_new_folder

            end if
        end repeat

    end tell
end file_to_folder

tell application "Finder"
    (display dialog ("It's done!") buttons {"Perfect!"})
end tell

推荐答案

使用 System Events 上下文代替 Finder:

Using the System Events context instead of Finder:

绕过 AppleShowAllFiles 首选项的问题[1]

总的来说要快得多.

在 System Events 上下文中使用 file/folder 对象的 visible 属性允许您可预测确定所有项，包括隐藏项(默认情况下)，或仅可见项(具有可见性为真):

# Sample input path.
set the_path to POSIX path of (path to home folder)

tell application "System Events"

    set allVisibleFiles to files of folder the_path whose visible is true

end tell

# Sample input path.
set the_path to POSIX path of (path to home folder)

# Sample subfolder name
set the_subfolder_name to "subfolder"

tell application "System Events"

    if folder (the_path & the_subfolder_name) exists then
        set subfolder to folder (the_path & the_subfolder_name)
    else
        set subfolder to make new folder at folder the_path ¬
          with properties {name: the_subfolder_name}
    end if

end tell