VBAでIE操作に役立つ指定フォルダ内のファイル情報を配列格納「fileNameF」

VBAのIE(InternetExplorer)制御に便利なサブルーチンを紹介しています。

「fileNameFサブルーチン」の詳しい説明は以下よりご確認ください。
指定フォルダ内のファイル情報を配列格納「fileNameF」の解説
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) = .Path & "\" & objFile.Name 'ファイルフルパス名
      fileValue(i, 2) = .Path  'フォルダパス名
      fileValue(i, 3) = .Name    'フォルダ名

   i = i + 1

  Next

 End With

 Set objSFO = Nothing
    
 fileNameF = fileValue()

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

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

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