Windows VB Application.FileSearch ファイル名の検索

Windows Visual Basic において ファイル名の検索 とは以下を示します。

ファイル名の検索

  With Application.FileSearch
    .NewSearch
    .LookIn = SearchDir
    .Filename = sInputFileNameFormat
    .SearchSubFolders = False

    If .Execute() > 0 Then
      For i% = 1 To .FoundFiles.Count
        If iShoriShubetsu = SHORI_DAILY_AVG Then
            データ生成 .FoundFiles(i%)
        End If

        Worksheets("読み込みファイルリスト").
        Cells(i%, 1) = .FoundFiles(i%)
        ErrorFileName = .FoundFiles(i%)
      Next i%
    Else
      MsgBox "検索条件を満たすファイルはありません。"
    End If
  End With

ご訪問頂き有難う御座います。 当サイトを効率良く使うためにまずは FrontPage を見て下さい。 検索方法、一覧表示などの各情報を纏めています。
当サイトの説明 → Frontpage