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」には、ファイル名を抽出するフォルダのパスを入力します。
初期値は実行ファイルと同じフォルダ内のパスになります。