« [DropBox]デスクトップにDropBoxのエイリアスをアイコン付きで作成する | トップページ | [OneDrive]デスクトップにOneDriveのエイリアスをアイコン付きで作成する »

[DropBox]DropBoxフォルダへバックアップしたいフォルダをコピーする

【スクリプトエディタで開く】

#!/usr/bin/env osascript
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
#
#
#
#
# com.cocolog-nifty.quicktimer.icefloe
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
use AppleScript version "2.8"
use framework "Foundation"
use scripting additions
property refMe : a reference to current application


set appFileManager to refMe's NSFileManager's defaultManager()


###################################
#####入力フォルダ
###################################
set ocidHomeDirUrl to appFileManager's homeDirectoryForCurrentUser()
set ocidDesktopDirURL to ocidHomeDirUrl's URLByAppendingPathComponent:"Desktop"
set aliasDesktopDirURL to ocidDesktopDirURL as alias
###ダイアログテキスト
set strPromptText to "入力フォルダを選んでください"
set strPromptMes to "入力フォルダを選んでください"
try
  set listResponse to (choose folder strPromptMes with prompt strPromptText default location aliasDesktopDirURL with invisibles and showing package contents without multiple selections allowed) as list
on error
  log "エラーしました"
  return
end try
set aliasCopyDirPath to (item 1 of listResponse) as alias
###################################
#####コピー先フォルダ
###################################
set ocidDropBoxDirURL to ocidHomeDirUrl's URLByAppendingPathComponent:"Library/CloudStorage/Dropbox"
set aliasDropBoxDirURL to ocidDropBoxDirURL as alias
###ダイアログテキスト
set strPromptText to "コピー先フォルダを選んでください"
set strPromptMes to "コピー先フォルダを選んでください"
try
  set listDistResponse to (choose folder strPromptMes with prompt strPromptText default location aliasDropBoxDirURL with invisibles and showing package contents without multiple selections allowed) as list
on error
  log "エラーしました"
  return
end try
set aliasDistDirPath to (item 1 of listDistResponse) as alias


###################################
#####コマンド実行
###################################
###dittoコマンドの特性に合わせてパスを調整
###入力パスから最後のディレクトリ名を取得して
set strCopyDirPath to POSIX path of aliasCopyDirPath as text
set ocidCopyDirPathStr to refMe's NSString's stringWithString:strCopyDirPath
set ocidCopyDirPath to ocidCopyDirPathStr's stringByStandardizingPath()
set ocidLastDirName to ocidCopyDirPath's lastPathComponent()
####出力先パスの最後に加える
set strDistDirPath to POSIX path of aliasDistDirPath as text
set ocidDistDirPathStr to refMe's NSString's stringWithString:strDistDirPath
set ocidDistDirPath to ocidDistDirPathStr's stringByStandardizingPath()
set ocidDistDirPath to ocidDistDirPath's stringByAppendingPathComponent:ocidLastDirName
set strDistDirPathStr to ocidDistDirPath as text


set strCommandText to "/usr/bin/ditto \"" & strCopyDirPath & "\" \"" & strDistDirPathStr & "\"" as text
do shell script strCommandText



|

« [DropBox]デスクトップにDropBoxのエイリアスをアイコン付きで作成する | トップページ | [OneDrive]デスクトップにOneDriveのエイリアスをアイコン付きで作成する »

AppleScript DropBox」カテゴリの記事

AppleScript CloudStorage」カテゴリの記事