テキストファイルにフォルダ名（AppleScript）内のフォルダ名を印刷するには

Question

部分的に動作するスクリプトがあります。私は動作しているフォルダ名のリストを出力する必要があります。しかし、それらのフォルダのそれぞれの中を特定のパスに入れて、それらの特定のフォルダ名を印刷する必要があります。試してみると、私のテキストファイルは空白になります。私は試してみるためにテキストファイルを分けています。私が試しても同じ結果が得られます。最初のテキストファイルは機能しますが、2番目のテキストファイルは常に空白です。 2番目のテキストファイルがスクリプトで指定された形式で動作するのが理想的です。どんな指針も大変ありがとうございます。

tell application "Finder" 
with timeout of 3600 seconds 
    set src to (path to me) as string 

    set multiPath to (src & "Contents:Resources:Fixed multiSteps") 

    set zipFiles to {".zip"} 


    set allPlugins to get name of every folder in folder ("" & multiPath & "") whose name extension is not in zipFiles 
    set outputFile to ((path to desktop as text) & "pluginNames.txt") 
    set typeFile to ((path to desktop as text) & "types.txt") 

    set fileReference to open for access file outputFile with write permission 

    set filetypeReference to open for access file typeFile with write permission 

    try 
     repeat with a in allPlugins 

      write a & return to fileReference 

      set innerPath to (a & "Double Click to Install.app:Contents:Resources") 

      set innerFolders to get name of every folder in folder ("" & innerPath & "") 

      repeat with b in innerFolders 

       write a & " - " & b & return to filetypeReference 

      end repeat 

     end repeat 

    end try 

end timeout 

end tell 

Answer 1

私はそれを理解しました。

tell application "Finder" 
with timeout of 3600 seconds 
    set src to (path to me) as string 

    set multiPath to (src & "Contents:Resources:Fixed multiSteps:") 

    set zipFiles to {".zip"} 


    set allPlugins to get name of every folder in folder ("" & multiPath & "") whose name extension is not in zipFiles 

    set ListFile to ((path to desktop as text) & "List.txt") 

    set filetypeReferenceList to open for access file ListFile with write permission 

    try 
     repeat with a in allPlugins 

      set innerPath to (multiPath & a & ":Double Click to Install.app:Contents:Resources") 

      set typesForList to get name of every folder in folder ("" & innerPath & "") 

      write a & " - " & typesForList & return to filetypeReferenceList 

     end repeat 

    end try 

end timeout 

end tell