Excel2003のマクロが2010でエラー445が出る

Question

ググったら、FileSeachが2007以降使えなくなると分かった。

暫定処置としてExcel2003を2010共存するようにし、

使えるようになりましたが、よくよくはデバッグを書き直さないといけないので、

みんなの知恵をこの場で借りられればうれしいです。

Excel2010でエラー445でデバッグボタンを押したら、

下記の該当部分（Set fs = Application.FileSearch）が黄色になっていたので

コピペしました。

どう(FileSearchをFileSystemObjectに）書き直せるかと

お力＆知恵をよろしくお願いします。

***************************

Public Function chk_mmdd(dtmFrom As Date, dtmTo As Date, strFolder As String) As Boolean

    Dim dtmKijun    As Date

    Dim strNoData   As String

    chk_mmdd = True

    Set fs = Application.FileSearch

    For dtmKijun = dtmFrom To dtmTo

        With fs

            .NewSearch

            .LookIn = strFolder

            .SearchSubFolders = False

            .filename = Mid(CStr(dtmKijun), 6, 2) & Mid(CStr(dtmKijun), 9, 2) & ".xls"

            If .Execute(SortBy:=msoSortByFileName, _

                    SortOrder:=msoSortOrderAscending) > 0 Then

            Else

                'ファイルが見つからない

                If strNoData = "" Then

                    strNoData = fs.filename

                Else

                    strNoData = strNoData & Chr(13) & fs.filename

                End If

            End If

        End With

    Next

    If strNoData <> "" Then

        strMsg = cstWorkCVS & "下記のファイルが存在しないため処理できません。" & _

                Chr(13) & Chr(13) & strNoData

        MsgBox strMsg, vbOKOnly + vbExclamation, "ファイルチェック"

        chk_mmdd = False

        Exit Function

    End If

End Function

************************************************************************

Answer 1

↓は指定のフォルダを漁って、ファイル名を表示します。

該当ファイルのピックアップは適当に工夫してください。

なお、ファイル名をSortしておられるようですが、FileSystemObjectではそのような機能はないので、

一度ワークシートに貯めて、Sortする必要があります。

なお、私はアプリケーション的なものを丸ごと作ってコードを提供するような回答はいたしません。

ここは無料コード作成サイトではなく、あくまでも分からないところをアドバイスするところです。

Sub Sample()

Dim FS As Object

Dim wPath As String, wFile As Object, wName As String

wPath = "E:\ABC"

Set FS = CreateObject("scripting.filesystemobject")

If FS.folderexists(wPath) Then

  For Each wFile In FS.getfolder(wPath).Files

    wName = wFile.Name

    MsgBox wName

  Next

Else

  MsgBox "フォルダ　" & wPath & " は存在しません"

End If

Set FS = Nothing

End Sub

Answer 2

上記のコードが自分作成したものではないので、

ただ、問題ありそんなところを切り出しただけです。

お手数ですが、素人にも分かるように（FileSystemObjectに書き直せる）

コード類を教えていただければ幸いです。＾＿＾

Answer 3

VBAのDir関数でフォルダ内のファイルをすべて読み出し、名前をチェックするなり、

純粋なVBAではありませんが、FileSystemObjectでやはりフォルダ内をすべて洗うか、特定のファイルの存在の有無を判定すれば済む話では？

VBAをかなり使われるようなので、あえてコードは出しません。