代码之家 › 专栏 › 技术社区 › Teja Kantamneni

AppleScript递归处理文件夹中的文件

applescript recursion macos

Teja Kantamneni · 技术社区 · 16 年前

我有一个根文件夹,其中有子文件夹。它一般只有一个层次,但可以更深。这些文件夹将有不同的文件,包括 .rar 文件夹。我想创建一个遍历文件夹的递归函数,检查文件是否是rar文件并打开/提取它。代码运行到第一级,没有任何问题。但是递归调用不起作用,apple脚本的错误处理非常糟糕。这是我到目前为止所做的代码。

set folderName to "Macintosh HD:Users:Teja:Desktop:Madhu Babu:"

process_folder("", folderName)

on process_folder(root, folderNameToProcess)
    set fileExt to {".rar"}
    tell application "Finder"
        set theItems to every file of folder (root & folderNameToProcess)
        repeat with theFile in theItems
            copy name of theFile as string to FileName
            repeat with ext in fileExt
                if FileName ends with ext then
                    open theFile
                    delete theFile
                end if
            end repeat
        end repeat
        set theFolders to name of folders of folder (root & folderNameToProcess)
        repeat with theFolder in theFolders
            copy theFolder as string to TheFolderName
            display dialog (folderNameToProcess & TheFolderName & ":")
            try
                process_folder(folderNameToProcess, TheFolderName & ":")
            on error errStr number errorNumber
                display dialog errStr
            end try
        end repeat
    end tell
end process_folder

4 回复 | 直到 16 年前

Lizzan 16 年前

尝试将递归调用更改为

try
    my process_folder(folderNameToProcess, TheFolderName & ":")
on error errStr number errorNumber
    display dialog errStr
end try

my 在 process_folder

Agnar Renolen 15 年前

解决方法很简单

在处理文件夹的递归调用前面加上“my”:

my process_folder(folderNameToProcess, TheFolderName & ":")

这将导致应用程序在您自己的作用域中查找“process_folder”处理程序。

Teja Kantamneni 16 年前

这是我得到的解决方案,它正在起作用。。。

--find . -name "*.rar" -type f -delete

set folderToProcess to (choose folder with prompt "Choose Folder::")

tell application "Finder"
    activate
    set fileExt to {".rar"}
    set theTopFolder to (folderToProcess as alias)
    repeat with EachFile in (get every file of folder (folderToProcess as alias))
        try
            copy name of EachFile as string to FileName
            repeat with ext in fileExt
                if FileName ends with ext then
                    set result to (open EachFile)

                    --delete Eachfile
                    msg(result)
                end if
            end repeat
        end try
    end repeat
    --display dialog (theTopFolder as text)
    repeat with EachSubDir in (get every folder of folder theTopFolder)
        try
            --display dialog (EachSubDir as text)
            repeat with EachFile in (get every file of folder (EachSubDir as alias))
                try
                    copy name of EachFile as string to FileName
                    --display dialog FileName
                    --move Eachfile to theTopFolder
                    repeat with ext in fileExt
                        if FileName ends with ext then
                            --display dialog FileName
                            set result to (open EachFile)
                            --delete Eachfile
                            msg(result)
                        end if
                    end repeat
                end try
            end repeat
            --delete folder (EachSubDir as alias)
        end try
    end repeat
end tell

Brandon 15 年前