下面是一个使用Automator的AppleScript脚本示例，可以根据文件名创建文件夹并将文件移动到文件夹中：

1. 打开Automator应用程序。
2. 创建一个新的“服务”工作流。
3. 在左侧搜索栏中，搜索“Run AppleScript”动作并将其拖放到右侧的工作区中。
4. 在AppleScript动作的代码编辑器中，粘贴以下代码：

on run {input, parameters}
    repeat with theFile in input
        tell application "Finder"
            set theFolder to make new folder at (container of theFile) with properties {name:name of theFile}
            move theFile to theFolder
        end tell
    end repeat
    return input
end run

5. 保存工作流，并为其指定一个名称（例如“创建文件夹并移动文件”）。
6. 现在，你可以在Finder中选择一个或多个文件，然后右键单击并选择“服务”菜单中的“创建文件夹并移动文件”选项。选择的文件将被移动到以其名称命名的新文件夹中。

请注意，此脚本将在文件所在的文件夹中创建新文件夹，并将文件移动到新文件夹中。如果要将文件移动到其他位置，可以修改代码中的container of theFile。