【Access VBA】ダウンロードフォルダのフルパス名を取得する

1 ダウンロードフォルダのフルパス名を取得する
- 1.1 解決できること
- 1.2 読んでほしい方
2 GetFullPathNameOfDownloadsFolder 関数の紹介

ダウンロードフォルダのフルパス名を取得する

この記事では「ダウンロードフォルダのフルパス名を取得する」 GetFullPathNameOfDownloadsFolder というユーザー定義関数について紹介します。この情報が読者のお役に立てば幸いです。

解決できること

Microsoft Access の中でここで紹介する GetFullPathNameOfDownloadsFolder をVBAプロシージャから呼び出すとダウンロードフォルダ名を簡単に取得できます。

読んでほしい方

こうした Microsoft Access VBA を使ったアプリケーションをこれから作ろうと思っている方、今まで VBA によるアプリケーションを作ってきたが、そのツールを第三者に提供する際に、フォルダのフルパス名等の利用者個人に紐づいた環境差分を VBA のプログラムの中にじかに書くのに抵抗がある方。

GetFullPathNameOfDownloadsFolder 関数の紹介

説明

この関数を呼び出すと利用者の ダウンロードフォルダ 名を取得します。

参照オブジェクト

この関数を利用するためにはこの関数の実行前に データベースツール > Visual Basic > ツール > 参照設定 の中で

Microsoft Office 16.0 Access Database engine

にチェックを入れる必要があります。

利用例

本ツールを以下のように利用したいVBAのプロシージャから引数なしで呼び出します。


Sub sample()
    MsgBox GetFullPathOfDownloadsFolder()
End Sub

引数

なし

戻り値

値	意味
文字列	利用者のダウンロードフォルダのフルパス名

VBAコード


Function GetFullPathOfDownloadsFolder() As String

    GetFullPathOfDownloadsFolder = Environ("UserProfile") & "\" & "Downloads"

End Function

コードの簡単な説明

行番号	説明
1	関数名と関数の戻り値の型(String:文字列型)を定義しています。
3-5	Environ関数を使って %USERPROFILE% を求め、これをもとにダウンロードフォルダの絶対パスを求め、関数の戻り値にこの値を設定して関数を終わります。