無料で使える便利なクラウドストレージ「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, vbInformation + vbSystemModal
End If
End Sub
Private Function GetSkyDriveUserFolder() As String
'SkyDrive デスクトップ アプリの同期フォルダーのパス取得
GetSkyDriveUserFolder = System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\SkyDrive", "UserFolder")
End Function
上記マクロでは「HKEY_CURRENT_USER\Software\Microsoft\SkyDrive\UserFolder」に記録されている同期フォルダーのパスをSystemオブジェクトのPrivateProfileStringプロパティを使って取得しています。