こちらもコピペですが、引用先の控えがありませんでした。
- –ディスクの空きを調べる.scpt
- tell application “Finder“
- set theDisk to choose folder
- set freeSpace to free space of theDisk
- set diskName to name
- display dialog diskName & “空きは “ & ((freeSpace div 1.0E+9) as string) & “ ギガバイトです“
- set result to list disks
- display dialog result as text
- –set the clipboard to diskName
- –set A of text item delimiters to
- set AppleScript’s text item delimiters to result
- –display dialog result
- end tell
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー