property NSUUID : a reference to current application’s NSUUID

property deleteV : true –DMG変換後に対象フォルダを削除しない（trueで削除）
property zipDmg : true –DMG作成後にZip圧縮する（trueで圧縮＋DMG削除）

–Finder上の選択項目を取得、選択されていない場合には処理終了
tell application "Finder"
　　set selList to selection as alias list
　　if selList = {} or selList = "" or selList = missing value then
　　　　activate
　　　　display dialog "何も選択されていません。" buttons {"OK"} default button 1 with icon 1
　　　　return
　　end if
end tell

–一時フォルダを作って選択中のアイテムをコピー
set aUUID to NSUUID’s UUID()’s UUIDString() as text

set aTmp to POSIX path of (path to desktop) –macOS 10.15 beta1ではおかしな結果が返ってくる
set tmpDir to aTmp & aUUID
do shell script "mkdir -p " & quoted form of tmpDir

set targFol to (POSIX file tmpDir) as alias

try
　　tell application "Finder"
　　　　duplicate selList to folder targFol
　　end tell
on error
　　display dialog "エラー：ファイルのコピー中にエラーが発生" buttons {"OK"} default button 1 with icon 1
　　return
end try

set aList to {targFol}

tell application "Finder"
　　
　　set dmgList to {}
　　
　　–選択中のアイテムを順次処理するループ
　　repeat with i in aList
　　　　set the end of dmgList to makeDMGfromFolderAlias(i, "") of me –パスワードは付けない
　　　　
　　　　–処理後のフォルダを削除する処理
　　　　if (deleteV as boolean) = true then
　　　　　　deleteFolderItself(i) of me
　　　　else
　　　　　　–元フォルダを削除しない場合、元フォルダの名前を変更する
　　　　　　tell application "Finder"
　　　　　　　　set aName to name of i
　　　　　　end tell
　　　　　　
　　　　　　set aName to aName & "_origFol"
　　　　　　
　　　　　　tell application "Finder"
　　　　　　　　set name of i to aName
　　　　　　end tell
　　　　end if
　　end repeat
　　
　　if zipDmg = true then
　　　　repeat with i in dmgList
　　　　　　set j to contents of i
　　　　　　
　　　　　　set f1Path to quoted form of j –DMGファイルのPOSIX Path
　　　　　　set f2Path to quoted form of (j & ".zip") –ZipファイルのPOSIX Path
　　　　　　
　　　　　　–タイムアウト時間は2時間
　　　　　　with timeout of 7200 seconds
　　　　　　　　do shell script "/usr/bin/zip -r -j " & f2Path & " " & f1Path
　　　　　　　　do shell script "/bin/rm -f " & f1Path
　　　　　　end timeout
　　　　　　
　　　　end repeat
　　end if
end tell

–指定のフォルダ（alias）をDiskImageに変換する
on makeDMGfromFolderAlias(aaSel, aPassword)
　　
　　set aPassword to aPassword as string
　　
　　tell application "Finder"
　　　　set fn to name of aaSel
　　end tell
　　
　　set aDir to (POSIX path of aaSel)
　　set aDir to quoted form of aDir
　　
　　set fp2 to do shell script "dirname " & aDir
　　set fp2 to fp2 & "/"
　　
　　set outPath to (fp2 & fn & ".dmg")
　　
　　if aPassword is not equal to "" then
　　　　–パスワードつきの場合
　　　　set aCMD to "printf ’" & aPassword & "’ | hdiutil create -encryption -srcfolder " & aDir & " " & (quoted form of outPath)
　　else
　　　　–パスワードなしの場合
　　　　set aCMD to "hdiutil create -srcfolder " & aDir & " " & (quoted form of outPath)
　　end if
　　
　　set fp3 to do shell script aCMD
　　
　　return outPath
　　
end makeDMGfromFolderAlias

–指定フォルダ内をすべて削除し、そのフォルダ自体も削除
on deleteFolderItself(aFol)
　　set aU to (quoted form of POSIX path of aFol)
　　do shell script "rm -rf " & aU
end deleteFolderItself