Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


22968 / 76732 ←次へ | 前へ→

【59135】「or条件」でファイルを探すためには?
質問  サイトー  - 08/11/30(日) 2:37 -

引用なし
パスワード
    .Filename = Trim(Cells(2, 2).Value)でB2にある文字列のファイルを、
B1のフォルダから探し出す様になっています。
特定の文字列を含むファイルを探す場合はワイルドカードを使えば問題ないのですが、
時々必要になる「or条件」で探す方法が思いつきません。
例えば、100個のファイルがあるフォルダから、
「A」or「B」or「C」の文字列を含むファイルを検索するような場合です。
「時々」であれば、「A」→「B」→「C」で3回検索すれば良いのですが、
処理の短縮のために対応策を考えている次第です。

参考情報でも構いませんので、ご意見を伺えれば幸甚です。

  Dim vntF As Variant
  Dim objFS As FileSearch
  Dim objFSO As FileSystemObject
  Dim dteDate As Date
  Dim GYO As Long
  Dim cntFound As Long
  Set objFS = Application.FileSearch
  Set objFSO = New FileSystemObject
  Rows("5:65536").ClearContents
  GYO = 4
  With objFS
    .NewSearch
    .LookIn = Trim(Cells(1, 2).Value)
    .Filename = Trim(Cells(2, 2).Value)
    dteDate = DateAdd("m", Cells(3, 2).Value * -1, Date)
    .SearchSubFolders = True
    If .Execute() <> 0 Then
      For Each vntF In .FoundFiles
        With objFSO.GetFile(vntF)
          If .DateLastModified >= dteDate Then
            GYO = GYO + 1
            Cells(GYO, 1).Value = .Name
            Cells(GYO, 2).Value = .DateLastModified
            Cells(GYO, 3).Value = _
              Left(.Path, Len(.Path) - Len(.Name) - 1)
            cntFound = cntFound + 1
          End If
        End With
      Next vntF
    End If
  End With
0 hits

【59135】「or条件」でファイルを探すためには? サイトー 08/11/30(日) 2:37 質問
【59136】Re:「or条件」でファイルを探すためには? Hirofumi 08/11/30(日) 8:22 回答
【59137】Re:「or条件」でファイルを探すためには? Hirofumi 08/11/30(日) 8:41 回答
【59139】Re:「or条件」でファイルを探すためには? サイトー 08/11/30(日) 14:04 質問
【59140】Re:「or条件」でファイルを探すためには? かみちゃん 08/11/30(日) 14:42 発言
【59143】Re:「or条件」でファイルを探すためには? サイトー 08/11/30(日) 15:06 発言
【59144】Re:「or条件」でファイルを探すためには? かみちゃん 08/11/30(日) 15:54 発言
【59147】Re:「or条件」でファイルを探すためには? サイトー 08/11/30(日) 16:31 お礼
【59146】Re:「or条件」でファイルを探すためには? Hirofumi 08/11/30(日) 16:28 発言
【59148】Re:「or条件」でファイルを探すためには? サイトー 08/11/30(日) 16:33 お礼
【59149】Re:「or条件」でファイルを探すためには? kanabun 08/11/30(日) 18:11 発言
【59486】報告_動作不良はエクセルVerによるもの サイトー 08/12/13(土) 0:46 発言

22968 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free