メディア

鬯ｩ蟷｢�ｽ�｢髫ｴ雜｣�ｿ�ｽ�ｽ�ｽ�ｽ�ｧ�ｽ�ｽ�ｽ�ｭ鬩搾ｽｵ�ｽ�ｺ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｹ髫ｴ蜿門ｾ暦ｿｽ�ｽ�ｽ�｣�ｽ�ｽ�ｽ�ｹ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ鬯ｩ蟷｢�ｽ�｢�ｽ�ｽ�ｽ�ｧ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｸ

＠IT
アジャイル/DevOps
Coding Edge
VBAで親フォルダのパスを取得する方法、Folderオブ...

VBAで親フォルダのパスを取得する方法、Folderオブジェクトのいろいろな使い方：VBA／マクロ便利Tips

業務効率化に役立つVBA／マクロのさまざまなTipsをコード例を交えて紹介していきます。今回は、親フォルダのパスを取得するGetParentFolderName、Folderオブジェクトを取得するGetFolderメソッドの使い方やFolder.Files、SubFolderプロパティなどについて。

» 2017年05月01日 05時00分公開

[薬師寺国安，PROJECT KySS]

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

　TIPS「FileSystemObjectを使うための準備――ファイル／フォルダをコピーするには」では、ファイルシステムへアクセスするメソッドなどを提供するFileSystemObjectやMicrosoft Scripting Runtimeの参照設定などを紹介したが、今回は、親フォルダのパスを取得する方法とFolderオブジェクトを使ったさまざまなTIPSについて解説する。

親フォルダのパスを取得するGetParentFolderNameメソッド
Folderオブジェクトを取得するGetFolderメソッド
Folder.Filesプロパティで指定したフォルダ内の全てのファイル名を取得する
Folder.SubFolderプロパティを使い、サブフォルダの個数を取得する
指定ディレクトリ内のサブフォルダを一覧表示するには

親フォルダのパスを取得するGetParentFolderNameメソッド

　親フォルダのパスを取得するには、GetParentFolderNameメソッドを使用する。

　指定されたパスの最後のファイル、またはフォルダの親フォルダの名前が入った文字列を返す。書式は下記のようになる。

GetParentFolderNameメソッドの書式

｛fso｝.GetParentFolderName(｛path｝)

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

　｛path｝も必須だ。親フォルダの名前を取得するファイルまたはフォルダのパスを指定する。

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

Sub 親フォルダのパスを取得()
  Dim fso As New Scripting.FileSystemObject
  Dim myFolder As String
  myFolder="K:\ExcelVBA_TextFiles\backup\"
  Cells(1.1).Value= fso.GetParentFolderName(myFolder)
  Set fso=Nothing
End Sub

リスト1　親フォルダのパスを取得するコード

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

　文字列型の変数myFolderを宣言し、フォルダ名をフルパスで指定しておく（3～4行目）。

　セルの「1、1（A1）」に、GetParentFolderNameメソッドで、変数myFolderに格納されているサブフォルダの親フォルダのパスを取得して表示する（5行目）。

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

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

　各自が試す場合は、各自のフィルダ内にあるファイルを指定してほしい。このコードのまま実行するとエラーになる可能性があるので注意が必要だ。

図1　「K:\ExcelVBA_TextFiles\backup」サブフォルダの親フォルダを取得した

Folderオブジェクトを取得するGetFolderメソッド

　GetFolderメソッドは指定されたパス内のFolderオブジェクトを返す。書式は下記のようになる。

GetFolderメソッドの書式

｛fso｝.GetFolder(｛folderspec｝)

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

　｛folderspec｝も必須だ。特定のフォルダへのパス（絶対または相対）を指定する。指定されたフォルダが存在しない場合は、エラーが発生する。

Folder.Filesプロパティで指定したフォルダ内の全てのファイル名を取得する

　Folderオブジェクトの使い方としては、例えばFilesプロパティを使って、指定したフォルダ内の全てのファイル名を取得するなどがある。リスト2のコードを参考にしてほしい。

Sub 指定したフォルダのファイル一覧を取得()
  Dim fso As New Scripting.FileSystemObject
  Dim myFile As Object
  Dim myFolder As String
  Dim i As Long
 
  myFolder = Range("B1").Value
 
  For Each myFile In fso.GetFolder(myFolder).Files
    i = i + 1
   Cells(i+1, 4).Value = myFile.Name
  Next
  
  Set myFile = Nothing
  Set fso = Nothing
End Sub

リスト2　指定したフォルダのファイル一覧を取得するコード

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

　Object型の変数myFileを宣言する（3行目）。

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

　Long型の変数iを宣言する（5行目）。

　変数myFolderにセルB1に入力された値を格納する（7行目）。

　For Each～Next文を使って、GetFolderメソッドで指定したフォルダ内にあるファイルにアクセスし、セルのi+1行目の4列目に、Nameプロパティで取得したファイル名を表示する。ここで「Cells(i+1,4)」としているのは、4列目では2行目からファイル名を表示させる必要があるためだ（9～12行目）。

　変数iは行数を表すため1ずつ増加させる必要がある（10行目）。

　最後にオブジェクト変数をNothingでクリアする（14～15行目）。

　Excelのシート上に図2のような項目を作り、「実行」ボタンにリスト2をひも付けてクリックすると、ファイル一覧が表示されるようにしてみよう。

図2　Excelのシート上に作成した、フォルダ指定欄とファイル表示覧

　フォルダにC:\Windowsを指定すると、図3のようにファイル名が取得された。サブフォルダは取得されない。

図3　C:\Windowsフォルダのファイル一覧が表示された

　エラー処理は行っていないので、フォルダを指定するセルに存在するフォルダ以外のデータを入力すると、エラーになるので注意してほしい。

Folder.SubFolderプロパティを使い、サブフォルダの個数を取得する

　FolderオブジェクトのSubFolderメソッドを使えば、指定したフォルダにあるサブフォルダの個数を取得することもできる。例えばリスト3のコードを参考にしてほしい。

Sub 指定したフォルダ内のサブフォルダの個数を取得()
  Dim fso As New Scripting.FileSystemObject
  Dim myFolder As Object
  Set myFolder=fso.GetFolder("C:\Windows\")
  Cells(1.1).Value= myFolder.SubFolders.Count
  Set myFolder=Nothing
  Set fso=Nothing
End Sub

リスト3　指定したフォルダにあるサブフォルダの個数を取得するコード

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

　Object型の変数myFolderを宣言する（3行目）。

　GetFolderメソッドで指定したフォルダにアクセスする（4行目）。

　セル「1、1（A1）」に、オブジェクト変数myFolderのSubFoldersメソッドで、「C:\Windows\」の中にあるサブフォルダを取得し、Countプロパティでその個数を取得して表示する（5行目）。

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

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

図4　「C:\Windows\」内にあるサブフォルダの個数が取得されてA1のセルに表示された

指定ディレクトリ内のサブフォルダを一覧表示するには

　上記2つを組み合わせると、指定ディレクトリ内のサブフォルダの一覧を表示することもできる。例えばリスト4のコードを参考にしてほしい。

Sub 指定ディレクトリのサブフォルダ名を表示()
  Dim fso As New Scripting.FileSystemObject
  Dim myFolders As Object
  Dim mainFolder As String
  Dim foldersCount As Long
  Dim fol As Variant
  Dim folderName As String
  Dim i As Long
  i = 2
  
  Range("D2:D300").Clear
 
  mainFolder = Range("B1").Value
  Set myFolders = fso.GetFolder(mainFolder)
  foldersCount = myFolders.SubFolders.Count
 
  For Each fol In fso.GetFolder(mainFolder).SubFolders
    Cells(i, 4).Value = fol.Name
    i = i + 1
  Next
 
  Set fso = Nothing
End Sub