EXCEL2000 フォルダ内のファイルを検索
EXCEL2000 フォルダ内のファイルを検索
お分かりになる方がいましたらお力添えの程よろしくお願いします。
任意のフォルダ内で任意のファイルサーチが出来るマクロを実行したいのですが、ファイルサーチの値を全角、半角、大文字、小文字区別なく行いたいのです。
例えば,セル2,2に、topと入力したら、topもtopもTOPもTOPも検索対象に引っかかり、セルに書き出して欲しいのです。
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
Sub ファイル一覧2()
Dim vntF As Variant
Dim objFS As FileSearch
Dim objFSO As FileSystemObject
Dim GYO As Long
Dim cntFound As Long
Set objFS = Application.FileSearch ' FileSearch
Set objFSO = New FileSystemObject ' FSO
Rows("5:65536").ClearContents
Application.ScreenUpdating = False
GYO = 4
With objFS
.NewSearch
.LookIn = Trim(Cells(1, 2).Value) ' Search開始フォルダ
.Filename = Trim(Cells(2, 2).Value) ' 探索ファイル式
.SearchSubFolders = True ' サブフォルダも探索
' 処理開始
If .Execute() <> 0 Then
For Each vntF In .FoundFiles
With objFSO.GetFile(vntF)
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 With
Next vntF
End If
End With
Set objFS = Nothing
Set objFSO = Nothing
' 処理結果の表示
If cntFound = 0 Then
MsgBox "見つかりません"
Else
MsgBox cntFound & "個見つかりました"
End If
End Sub
補足
いつも、いつも有難う御座います。 英語のサイトまで検索して頂いたなんてお礼のしようがありません。(私は、全く英語が解らないので検索のしようがありませんが・・) やはり、便利なものは、意外と落とし穴があるんですね?シンプルが一番のセオリー通り、Dir関数でディスクのディレクトリーを直接見に行くように変更してみます。ソートもしてくれる優れモノと思っていたのに・・?残念ですが、今後とも同じような動きになると大変なので、がんばって組み替えます。本当に、本当有難う御座います。大変助かっております。今後ともよろしくお願いいたします。