【VBA】マイフォルダ(デスクトップ、ドキュメント、ダウンロード)のフルパスを取得する方法

みなさんこんにちは。

VBAを操作しているとマイフォルダ(デスクトップ、ドキュメント、ダウンロード)の

パスを取得する方法を知りたくなるタイミングがあるかと思います。

発生頻度こそ高くないものの、

簡単な内容となるためコードの内容をつい忘れがちになってしまいます。

今回は、備忘録も含めマイフォルダ(デスクトップ、ドキュメント、ダウンロード)のパスを取得する方法についてご紹介します。

この記事はこんな人におすすめ

この記事はこんな人におすすめです！

VBAプログラミング：初級者～中級者
Webスクレイピング:初級者～中級者
コードだけサクッと取得したい人
効率の良いコードを書きたい人

といったところでしょうか。

VBAに関する過去の記事

VBAに関する小ワザやテクニックについては過去の記事でもご紹介しております。

【VBA×初学者向け】VBAで便利なショートカット集

【VBA×初学者向け】文字列の一部に色を付ける方法

今回の記事を読むメリット

マイフォルダのパスを取得する方法を知るメリットは以下の通りです。

コーディングの基本的なテクニックの習得
コードの備忘録的な使用
基礎的なスキルの定着

といったところでしょうか。

VBAコーダーとしては必ず通る道であり、誰しもが経験するカベかと思います。

且つ忘れたころに直面するかと思いますので、

一度やり方を覚えてしまえばかなり有効的なスキルになるかと思います。

コード紹介

デスクトップ

早速ですがコードについて紹介します。

以下の一文を使用するだけでいたって難しいことはありません。

CreateObject("WScript.Shell").SpecialFolders("desktop")

実装時は以下のように使用します。

Sub GetMyFullPath()

    Dim upath As String

    'デスクトップ
    upath = CreateObject("WScript.Shell").SpecialFolders("desktop")
    Debug.Print upath
End Sub

ドキュメント

ドキュメントに関しても同様に以下の一文を使用するだけでOKです。

'ドキュメント
upath = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
Debug.Print upath

ダウンロード

ダウンロードについても同様に、、、と言いたいところですが、

ダウンロードフォルダだけは注意が必要で、以下のような一文を使用しても取得ができません。

CreateObject("WScript.Shell").SpecialFolders("Downloads")

改善点

そのため、「ダウンロード」を取得する前に、一旦「ドキュメント」のパスを取得し、パス内の「Documents」の部分を

「Downloads」(ダウンロード)に置換することで、「ドキュメント」のパスに変更します。

    'ダウンロード
    upath = Replace(upath, "\Documents", "\Downloads", 1, 1)
    Debug.Print upath

デスクトップ、ドキュメント、ダウンロードのパス取得方法

以下のコードを直接コピーして、実装中のコードに付け加えていただければ使用することができます。

Sub GetMyFullPath()
    Dim upath As String

    'デスクトップ
    upath = CreateObject("WScript.Shell").SpecialFolders("desktop")
    Debug.Print upath

    'ドキュメント
    upath = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
    Debug.Print upath

    'ダウンロード
    upath = Replace(upath, "\Documents", "\Downloads", 1, 1)
    Debug.Print upath
End Sub