指定したフォルダから指定した種別のファイル名を取得する

Dir関数で指定フォルダの指定した種別のファイル名を取得する関数。

配列の最後にブランクのデータが出来てしまうため、Loop終わりでもReDimしている。もっとスマートなやり方がないものか。

使用例

Sub Main()
    Dim fileName As Variant
    fileName = SearchFile("C:\bin\", "*.txt")
End Sub