ファイル Filenameプロパティの使用例

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。

次の使用例は、[My Documents] フォルダに保存されている "cmd" で始まり、拡張子が付いているすべてのファイルを検索し、名前と保存場所を表示します。
Option Explicit

'
Set fs = Application.FileSearch
With fs
    .LookIn = "C:\My Documents"
    .Filename = "cmd*.*"
    If .Execute > 0 Then
        MsgBox .FoundFiles.Count & " 個のファイルが見つかりました。"
        For i = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(i)
        Next i
    Else
        MsgBox "ファイルは見つかりませんでした。"
    End If
End With

 

2000年01月01日|[VBサンプルコード]:[ファイル]