Office関連

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, 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プロパティを使って取得しています。

■ 関連Webページ

・SkyDriveの同期フォルダーのパスを取得するマクロ
//www.ka-net.org/blog/?p=3508

[Office用アプリ]Mashup Awards 9にOffice 用アプリで応募できる!?前のページ

SkyDriveの同期フォルダーのパスを取得するマクロ次のページ

関連記事

  1. Office関連

    Wordのテンプレートをインストールするスクリプト

    Wordマクロをテンプレートにして使用する場合、通常そのテンプレートフ…

  2. Office関連

    第4回Office 365勉強会に参加してきました。

    2013/3/2(土)に品川にあるMicrosoftオフィスでOffi…

  3. Office関連

    Instagram APIをVBAから呼び出してみる。

    最近画像共有系のSNS、Instagram(インスタグラム)を使い始め…

  4. Office アドイン

    [Office用アプリ]選択範囲変更時のイベントを利用する。

    ※ この情報はOffice 2013 カスタマー プレビュー版を元にし…

  5. アイコン一覧

    Office 365アイコン(imageMso)一覧(S)

    Office 365のデスクトップ版Officeアプリケーション(Wo…

  6. Office関連

    マクロに割り当てたショートカットキーをCSVファイルとして出力するWordマクロ

    Word MVPの新田さんが書かれた以下の記事を見て思いついたマクロで…

コメント

  1. この記事へのコメントはありません。

  1. この記事へのトラックバックはありません。

Time limit is exhausted. Please reload CAPTCHA.

※本ページはプロモーションが含まれています。

Translate

最近の記事

アーカイブ

PAGE TOP