``` tell application "Finder" set {myItems, myfonts} to {entire contents of (choose folder), {}} repeat with i in myItems set myfonts to myfonts & (name of i & tab & kind of i & tab & version of i & tab & size of i & tab & short date string of ((creation date of i) as date)) & return end repeat set the clipboard to myfonts as string end tell ``` #dtp
@assause
使えるかしらんが
選択したフォルダ（１個）の中身をリストアップするAS
```
tell application "Finder"
set {myItems, myfonts} to {entire contents of (choose folder), {}}
repeat with i in myItems
set myfonts to myfonts & (name of i & tab & kind of i & tab & version of i & tab & size of i & tab & short date string of ((creation date of i) as date)) & return
end repeat
set the clipboard to myfonts as string
end tell
``` #dtp