[vba/excel] フォルダに存在するファイルの名前一覧を取得する

gistfile1.vb

'------------------------------------------------------------------------------
'フォルダに存在するファイルの名前一覧を取得する
'------------------------------------------------------------------------------
'【引数】ファイル名を格納するDictionary、検索するパス
'【戻り値】
'【備考】引数のDictionaryにファイル名を格納する。
'        サブフォルダは考慮しない。
Private Sub GetExistingFileNames(dicFileName As Object, strPath As String)
    Dim FSO As Object
    Dim objFile As Object

    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    If Not FSO.FolderExists(strPath) Then
        Exit Sub
    End If
    
    For Each objFile In FSO.GetFolder(strPath).Files
        If Not dicFileName.Exists(objFile.Name) Then
            dicFileName.Add objFile.Name, ""
        End If
    Next objFile

    Set FSO = Nothing
End Sub