＠IT
アジャイル/DevOps
Coding Edge
VBAでファイル名や拡張子を取得する方法、特殊フォ...

VBAでファイル名や拡張子を取得する方法、特殊フォルダを取得する方法：VBA／マクロ便利Tips

業務効率化に役立つVBA／マクロのさまざまなTipsをコード例を交えて紹介していきます。今回は、ファイルの拡張子を取得するGetExtensionName、ファイル名を取得するGetFileName、「特殊フォルダ」を取得するGetSpecialFolderメソッドについて使い方を解説する。

» 2017年04月20日 05時00分公開

[薬師寺国安，PROJECT KySS]

印刷

通知

連載「VBA／マクロ便利Tips」の新着をメールで通知

※本Tipsの環境：Windows 10 64bit＋Anniversary Update、Excel 2016

　TIPS「FileSystemObjectを使うための準備――ファイル／フォルダをコピーするには」では、ファイルシステムへアクセスするメソッドなどを提供するFileSystemObjectやMicrosoft Scripting Runtimeの参照設定などを紹介したが、今回は、ファイルの拡張子とファイル名を取得する方法と、特殊なフォルダを取得する方法について解説する。

ファイルの拡張子を取得するGetExtensionNameメソッド
ファイル名を取得するGetFileNameメソッド
「特殊フォルダ」を取得するGetSpecialFolderメソッド

ファイルの拡張子を取得するGetExtensionNameメソッド

　ファイルの拡張子を取得するには、GetExtensionNameメソッドを使用する。これは、指定されたパスの拡張子を表す文字列を返すものだ。書式は下記のようになる。

GetExtensionNameメソッドの書式

｛fso｝.GetExtensionName(｛path｝)

　｛fso｝は必須だ。FileSystemObjectオブジェクトの名前を指定する。

　｛path｝も必須だ。拡張子を取り出す構成要素のパスを指定する。

　VBEを起動して、「挿入」メニューから「標準モジュール」を選択して、Module1を作成し、リスト1のコードを記述する。新規にModuleを作成した場合は「Microsoft Scripting Runtimeの参照設定」を行うことを忘れないでほしい。

Sub ファイルの拡張子の取得()
  Dim fso As New Scripting.FileSystemObject
  Dim filePath As String
  Dim ExtentionName As String
  filePath="K:\ITmedia\Excel_FileSystemObject\1\FileSystemObject_01.docx"
  ExtentionName=fso.GetExtensionName(filePath)
  MsgBox(ExtentionName)
  Set fso=Nothing
End Sub

リスト1　ファイルの拡張子を取得するコード

　新しいScripting.FileSyetemObjectのインスタンスを作成してfsoで参照する（2行目）。

　文字列型の変数filePathを宣言する（3行目）。同じく、文字列型のExtentionName変数を宣言する（4行目）。

　変数filePathにフルパスで拡張子を取得するファイル名を指定する（5行目）。試す場合は、各自のフォルダ内にあるファイルを指定してほしい。

　変数ExtentionNameに、GetExtentionNameメソッドで、変数filePathに指定したファイル名の拡張子を取得して格納する（6行目）。

　取得した拡張子を表示する（7行目）。

　オブジェクト変数をNothingでクリアする（8行目）。

　実行すると、図1のように表示される。

図1　ファイルの拡張子が取得されて表示された

ファイル名を取得するGetFileNameメソッド

　ファイル名を取得するには、GetFileNameメソッドを使用する。これは指定されたパスの最後のファイル名またはフォルダ名を返すメソッドだ。書式は下記のようになる。

GetFileNameメソッドの書式

｛fso｝.GetFileName(｛pathspec｝)

　｛fso｝は必須だ。FileSystemObject オブジェクトの名前を指定する。

　｛pathspec｝も必須だ。指定したファイルの絶対パスまたは相対パスを指定する。ただし、指定するパスは実在していなくても構わない。要は、最終要素のファイル名のみを返すのだ。

　使い方としては、リスト2のコードを参考にしてほしい。

Sub ファイル名の取得()
  Dim fso As New Scripting.FileSystemObject
  Dim filePath As String
  filePath="K:\ITmedia\Excel_FileSystemObject\1\FileSystemObject_01.docx"
  Dim fileName As String
  fileName=fso.GetFileName(filePath)
  MsgBox fileName
  Set fso=Nothing
End Sub

リスト2　ファイル名を取得するコード

　Scripting.FileSystemObjectのインスタンスを作成し、変数fsoで参照する（2行目）。

　文字列型の変数filePathを宣言し、取得するファイル名をフルパスで指定しておく（3～4行目）。

　文字列型の変数fileNameを宣言する（5行目）。

　GetFileNameメソッドで、変数filePathに格納したファイル名を取得して、変数fileNameに格納する（6行目）。

　取得したファイル名を表示する（7行目）。

　最後に、オブジェクトの変数をNothingでクリアしておく（8行目）。

　実行すると図2のように表示される。

図2　ファイル名を取得した

「特殊フォルダ」を取得するGetSpecialFolderメソッド

　VBAにはGetSpecialFolderという、その名の通り、「特殊フォルダ」を取得するメソッドがある。

　「特殊フォルダ」とは「デスクトップ」「マイドキュメント」「Windowsのセットアップ場所」「システムフォルダ」「一時フィルダ」を指す。しかし、「デスクトップ」「マイドキュメント」を取得するには、Scripting.FileSystemObjectではなく、WScript.Shellを使う必要があり、VBAではないので、本稿ではこれらのフォルダの取得はしない。

　「Windowsのセットアップ場所」「システムフォルダ」「一時フィルダ」はScripting.FileSystemObjectで取得可能なので、今回はこれらのフォルダを取得する方法を解説する。書式は下記の通りだ。

GetSpecialFolderメソッドの書式

｛fso｝.GetSpecialFolder(｛folderspec｝)

　｛fso｝は必須だ。FileSystemObject オブジェクトの名前を指定する。

　｛folderspec｝も必須だ。取得する「特殊フォルダ」の名前を指定する。｛folderspec｝には表1の指定項目がある。

表1　folderspecの指定項目
定数	値	説明
WindowsFolder	0	Windowsがセットアップされているフォルダ
SystemFolder	1	システムファイル用のフォルダ
TemporaryFolder	2	一時ファイルの格納に使用されるTempフォルダ。このパスは TMP環境変数で指定されている
参考「GetSpecialFolderメソッド-MSDN」

　使い方としては、リスト3のコードを参考にしてほしい。

Sub 特殊フォルダを取得する()
 Dim fso As New Scripting.FileSystemObject
 Dim myObj1 As Object
 Dim myObj2  As Object
 Dim myObj3  As Object
 Set myObj1 = fso.GetSpecialFolder(0)
 Set myObj2 = fso.GetSpecialFolder(1)
 Set myObj3 = fso.GetSpecialFolder(2)
 MsgBox "Windowsファイルの場所は=" & myObj1.Path & vbCrLf & "システムフォルダの場所は=" & myObj2.Path & vbCrLf & "一時ファイルの場所=" & myObj3.Path
 Set fso = Nothing
 Set myObj1 = Nothing
 Set myObj2 = Nothing
 Set myObj3 = Nothing
End Sub