以下是一个使用AppleScript搜索文件夹并重命名文件的示例代码：

-- 设置要搜索的文件夹路径
set folderPath to choose folder with prompt "选择要搜索的文件夹"
-- 设置要搜索的文件名关键字
set keyword to "原文件名"
-- 设置要替换的文件名关键字
set replacement to "新文件名"

-- 定义一个处理文件的函数
on processFile(theFile)
    -- 获取文件名
    set fileName to name of theFile
    -- 检查文件名是否包含关键字
    if fileName contains keyword then
        -- 替换文件名中的关键字
        set newFileName to my replaceText(keyword, replacement, fileName)
        -- 设置新文件名
        set name of theFile to newFileName
    end if
end processFile

-- 定义一个替换文本的函数
on replaceText(find, replace, textString)
    set prevTIDs to text item delimiters of AppleScript
    set text item delimiters of AppleScript to find
    set textItems to every text item of textString
    set text item delimiters of AppleScript to replace
    set newText to textItems as string
    set text item delimiters of AppleScript to prevTIDs
    return newText
end replaceText

-- 遍历文件夹中的所有文件
tell application "Finder"
    set allFiles to every file of entire contents of folderPath
    repeat with aFile in allFiles
        -- 处理文件
        my processFile(aFile)
    end repeat
end tell

这段代码首先会弹出一个对话框，让您选择要搜索的文件夹。然后，它会遍历文件夹中的所有文件，并检查文件名是否包含关键字。如果文件名包含关键字，它将使用新的文件名替换关键字部分。

请注意，这段代码将在Finder应用程序中运行，因此确保不要启动其他可能干扰脚本执行的应用程序。