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では確認してないので自己責任で。