読者です 読者をやめる 読者になる 読者になる

Learning Note

できるようになったことを記録しています

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

Excel VBA 入力系

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

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


使用例

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