指定フォルダ内のファイル情報を配列格納「fileNameF」の解説

前回の「指定フォルダ内のファイル一覧(ファイル名)を取得「fileName」」では、フォルダ内のファイル名取得の制御方法について解説しましたが、今回は、ファイル情報を配列へ格納する方法について、説明していきます。
こちらは、ファイル名だけでなくフォルダ名やファイルのフルパス名などを取得したい場合に非常に便利な機能ですので、是非使ってみてください。

スポンサー リンク

指定フォルダ内のファイル情報を配列格納するサブルーチン


Function fileNameF(Optional pathName As String = "myPath") As Variant()

 If pathName = "myPath" Then: pathName = ActiveWorkbook.Path 'フォルダパス

 'FileSystemObjectインスタンスを生成
 Set objSFO = CreateObject("Scripting.FileSystemObject")

 With objSFO.GetFolder(pathName & "\")
    
  '要素数セット
  Dim fileValue() As Variant
        
  If .Files.Count > 0 Then
   ReDim fileValue(.Files.Count - 1, 3)
  Else
   ReDim fileValue(.Files.Count, 3)
  End If
        
  i = 0

  For Each objFile In .Files

   fileValue(i, 0) = objFile.Name  'ファイル名
   fileValue(i, 1) = pathName & "\" & objFile.Name 'ファイルフルパス名
   fileValue(i, 2) = pathName  'フォルダパス名
   fileValue(i, 3) = Mid(pathName, InStrRev(pathName, "\") + 1)    'フォルダ名

   i = i + 1

  Next

 End With

 Set objSFO = Nothing
    
 fileNameF = fileValue()

End Function

指定フォルダ内のファイル情報を配列格納するマクロ

Sub sample()

 Dim pathName As String
 Dim fileData As Variant
    
 pathName = ThisWorkbook.Path & "\file"
    
 fileData = fileNameF(pathName)
    
 r = 2
    
 For i = 0 To UBound(fileData)
    
  Cells(r, 1) = fileData(i, 0)
  Cells(r, 2) = fileData(i, 1)
  Cells(r, 3) = fileData(i, 2)
  Cells(r, 4) = fileData(i, 3)
        
  r = r + 1
    
 Next

End Sub

実行結果

フォルダ内のファイル名を配列格納

こちらの引数は以下の1つです。

引数名データ型内容値の事例初期値省略
pathNameString取得するフォルダパス文字列"C:\Users\vba-ie\Desktop\vba-ie\file\"
sheetNameF("取得するフォルダパス文字列")

引数は任意項目となります。

「pathName」には、ファイル名を抽出するフォルダのパスを入力します。
初期値は実行ファイルと同じフォルダ内のパスになります。


If pathName = "myPath" Then: pathName = ActiveWorkbook.Path 'フォルダパス

こちらでは、パス名の初期値を設定しています。
引数を指定している場合は、そちらが利用されます。


Set objSFO = CreateObject("Scripting.FileSystemObject")

フォルダを操作にするには、「FileSystemObjectオブジェクト」を利用します。
こちらではインスタンスを作成しています。


With objSFO.GetFolder(pathName & "\")
(省略)
End With

こちらでは、「Withステートメント」を利用してコードの省略化を行っています。同じオブジェクトを何度も記述する場合に非常に便利ですので、是非活用しましょう。


'要素数セット
Dim fileValue() As Variant
      
If .Files.Count > 0 Then
 ReDim fileValue(.Files.Count - 1, 3)
Else
 ReDim fileValue(.Files.Count, 3)
End If

こちらでは、配列の要素数を設定しています。
ファイル数は変動するため、一旦「Dimステートメント」で配列を宣言し、「ReDimステートメント」にファイル数の分だけ要素数に設定します。
ただし、こちらでは「Countプロパティ」で数を取得していますが、配列は0からですので、実際には1つ多く要素数が設定されてしまいます。
正規表現で抽出したいデータを取得「regValue」」では、データ取得後に要素数を1減らす対応で行いましたが、こちらでは「IF~Thenステートメント」で対応していきます。

また、ファイル情報は複数あるので、多次元配列となっています。


i = 0

For Each objFile In .Files

 fileValue(i, 0) = objFile.Name  'ファイル名
 fileValue(i, 1) = pathName & "\" & objFile.Name 'ファイルフルパス名
 fileValue(i, 2) = pathName  'フォルダパス名
 fileValue(i, 3) = Mid(pathName, InStrRev(pathName, "\") + 1)    'フォルダ名

 i = i + 1

Next

こちらは、ファイル情報を各配列へ格納する処理となります。
配列は4次元配列で、それぞれに「ファイル名」「ファイルフルパス名」「フォルダパス名」「フォルダ名」が格納されます。
フォルダ名抽出名には「InStrRev」関数を利用して抽出しています。
抽出方法は「1階層上の親ディレクトリパスを取得「ParentDirName」」で解説していますので、こちらをご確認ください。

ここまでがサブルーチンの解説ですが、実際の使い方について見ていきましょう。


pathName = ThisWorkbook.Path & "\file"
    
fileData = fileNameF(pathName)
    
r = 2
    
For i = 0 To UBound(fileData)
    
 Cells(r, 1) = fileData(i, 0)
 Cells(r, 2) = fileData(i, 1)
 Cells(r, 3) = fileData(i, 2)
 Cells(r, 4) = fileData(i, 3)
        
 r = r + 1
    
Next

ざっと説明すると、まず取得するフォルダを指定しpathName変数に代入します。
こちらではフォルダの情報を取得するために「fileNameFサブルーチン」へ引数として渡し、fileData配列変数にファイル情報が格納されます。
後はどういう使い方をするかは自由ですが、こちらでは、A~D列にそれぞれの情報を入力しています。
このように配列データは自由に取り出しができますので、非常に便利ですね。

次の記事: VBAでIE操作に役立つ指定フォルダ内(サブフォルダ含む)のファイル情報を配列格納 >>

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田 伸矢, 植木 悠二, 上田 寛

IEのデータ収集&自動操作のプログラミング本はこの1冊だけ!IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

VBAのIE制御についてのQ&A掲示板

↑エクセルVBAのIE(InternetExplorer)操作で分からない事があればこちらの掲示板よりご質問ください^^

ExcelのVBA初心者入門

↑こちらはExcelのVBAをマスターできるよう初心者向けのエクセルVBA入門コンテンツになります^^

VBAのIE制御入門RSS

RSSフィードを登録すると最新記事を受け取ることができます。

VBAIE操作のスカイプレッスン

VBAでIE(InternetExplorer)制御の準備

【ダウンロード】IE操作に便利なツール

こちらでは、これまでに紹介したIE(InternetExplorer)操作で便利な機能をツール化しています。無償でダウンロードできますので、目的に合わせたご利用ください。

スポンサー リンク

IEオブジェクトのメソッド・プロパティ

こちらでは、IE(InternetExplorer)オブジェクトのメソッド・プロパティをまとめています。

IE操作に利用されているVBA関数

こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたVBA関数をまとめています。

スポンサー リンク

IE操作に利用されているステートメント

こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたステートメントをまとめています。ExcelのVBAで基本的な部分になりますので、しっかり理解しましょう。

IE(InternetExplorer)制御のVBAコード

こちらでは、これまでに作成したIE(InternetExplorer)操作で役立つサブルーチンをまとめています。
全てをコピーする必要はありませんが、目的に合わせたサブルーチンをご利用ください。

ExcelのVBAで作成した役立つVBAコード

こちらでは、IE(InternetExplorer)制御の利用だけでなく、Excel全般で利用できるVBAコードです。エクセルVBAで役に立つものばかりですので、ご利用ください。