日々更新

ＶＢＡでマイドキュメントフォルダにアクセスする必要があったけど、
ＯＳによってマイドキュメントフォルダのフルパスが違うので困っちゃった。

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

    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()

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