Question

我想将文件复制到特定文件夹。文件夹名称和文件名共有前14个字符。这是我的文件夹结构：

源文件结构：

Proxy
     RED_A001_0101R7 (the last 6 digits are random)

          A001_C001_0101RN_001_Proxy.mp4 (video file to be copied)
          A001_C002_0101D5_001_Proxy.mp4 (video file to be copied)                                 
                          ...
     RED_A001_0525A1
     RED_A002_010107
     ...

目标文件结构：

FullRes
     RED_A001_0101R7
          A001_C001_0101RN.RDC (Folder in which the correct _Proxy file should be copied in)
          A001_C002_0101D5.RDC (Folder in which the correct _Proxy file should be copied in)
                   ...
     RED_A001_0525A1
     RED_A002_010107
     ...

正如您所看到的那样，有时两个文件夹以相同的文件夹名称开头（但用后面的随机数字区分）
我设法将以下脚本放在一起：

set ProxyFolder to (choose folder with prompt "Choose the Source Folder")
set FullresFolder to (choose folder with prompt "Choose the Destination Folder")

tell application "System Events"
      set folderList to name of folders of FullresFolder
      set fileList to name of files of ProxyFolder
end tell

repeat with i from 1 to (count folderList)
      set folderName to item i of folderList
      set beginFolderName to text items 1 thru 14 of folderName
      set filesToMove to {}
           repeat with j from 1 to (count fileList)
                   set filename to item j of fileList
                   if filename begins with beginFolderName then
                       set end of filesToMove to alias ((ProxyFolder as string) & filename)
                   end if
            end repeat

tell application "Finder"
                   duplicate filesToMove to alias ((FullresFolder as string) & folderName & ":")
        end tell
end repeat

脚本有效 - 但是现在我必须为每个文件夹A001，A002等选择我的源文件夹和目标文件夹。能够选择顶级文件夹作为源（文件夹代理）和目的地会更方便（文件夹FullRes）。我怎么能这样做？

Answer 1

多数民众赞成!!

我编辑了我的原始剧本并且它也有效，但你的方式更优雅，可能更快。非常感谢你！

这是我的版本：

set topLevelProxyFolder to (choose folder with prompt "Choose the PROXY Folder")
set topLevelFullresFolder to (choose folder with prompt "Choose the FULL RES Folder")

tell application "System Events"
    set folderList to name of folders of topLevelFullresFolder
    set proxyFolderList to name of folders of topLevelProxyFolder
end tell

set allFilesList to {}

repeat with thisProxyFolder from 1 to (count proxyFolderList)
    set thisProxyFolderName to item thisProxyFolder of proxyFolderList
    set thisSubProxyFolder to alias ((topLevelProxyFolder as string) & thisProxyFolderName)

    tell application "System Events"
        set thisFileList to name of files of thisSubProxyFolder
    end tell

    set allFilesList to allFilesList & thisFileList

end repeat

repeat with thisFolder from 1 to (count folderList)
    set thisFolderName to item thisFolder of folderList
    set thisSubFolder to alias ((topLevelFullresFolder as string) & thisFolderName)

    tell application "System Events"
        set subFolderList to name of folders of thisSubFolder
    end tell

repeat with i from 1 to (count subFolderList)
    set thisSubFolderName to item i of subFolderList
    set beginSubFolderName to text items 1 thru ((get offset of "." in thisSubFolderName) - 1) of thisSubFolderName
    set filesToMove to {}

    repeat with j from 1 to (count allFilesList)
        set fileName to item j of allFilesList
        if fileName begins with beginSubFolderName then
            set end of filesToMove to alias ((topLevelProxyFolder as string) & thisFolderName & ":" & fileName)
        end if

    end repeat

    tell application "Finder"
        duplicate filesToMove to alias ((topLevelFullresFolder as string) & thisFolderName & ":" & thisSubFolderName & ":")         
    end tell

    end repeat
end repeat

Applescript将文件复制到特定文件夹

1 个答案: