SkyDriveの同期フォルダーのパスを取得するWordマクロ | 初心者備忘録

無料で使える便利なクラウドストレージ「SkyDrive」にはローカルフォルダーとSkyDrive上のフォルダーを簡単に同期するためのデスクトップアプリが用意されています。 今回はこのデスクトップアプリで同期設定をしている、ローカルフォルダーのパスを取得するWordマクロを紹介します。 Option Explicit Public Sub Sample() Dim s As String s = "" '初期化 s = GetSkyDriveUserFolder If Len(Trim(s)) < 1 Then MsgBox "SkyDriveの同期フォルダーのパスを取得できません。", vbCritical + vbSystemModal Else MsgBox "SkyDriveの同期フォルダーのパスは以下になります。" & vbCrLf & vbCrLf & s, vbInformat