Excel VBA マイドキュメントフォルダのフルパス取得

  • マウスコンピューター/G-Tune
  • VBAでマイドキュメントフォルダにアクセスする必要があったけど、
    OSによってマイドキュメントフォルダのフルパスが違うので困っちゃった。

    で、こうすればとれるよ。

        Dim WSH As Object
        Dim MyDocumentFolder As String      'MyDocumentのフォルダ
        Set WSH = CreateObject("WScript.Shell")
        MyDocumentFolder = WSH.SpecialFolders("MyDocuments") & "\"
        
        Set WSH = Nothing
    

    こうやって使ってね。

    Public Function GetMyDocumentFolder() As String
        Dim WSH As Object
        Dim MyDocumentFolder As String      'MyDocumentのフォルダ
        Set WSH = CreateObject("WScript.Shell")
        MyDocumentFolder = WSH.SpecialFolders("MyDocuments") & "\"
        
        GetMyDocumentFolder = MyDocumentFolder
        
        Set WSH = Nothing
    End Function
    

    呼び出し方

        Dim str As String
        str = GetMyDocumentFolder()
    

    たぶん、OSに依存しないと思うけど、全OSでは確認してないので自己責任で。



  • 楽天トラベル
  • 関連記事

    Bose SoundLink around-ear wireless headphones II ビックカメラ.com 楽天トラベル株式会社 ノートン体験板バナー
    ページ上部へ戻る