VB6で絞込み検索を行なうには？ (ID:88733)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんな感じ。 Dim Fso AsFileSystemObject Dim nRootPath As String Dim nPattern As String Dim nFilePathes() As String Dim lIndex As Long Set Fso = CreateObject("Scripting.FileSystemObject") nRootPath = "C:\temp\" nPattern = "*" & m_strDate & "*" nFilePathes() = GetFoldersMostDeep(nRootPath, nPattern) 'フォルダが存在しない場合、UBound(nFilePathes())=0でループが '実行されないので、If文でチェックする必要は無い For lIndex = 1 To UBound(nFilePathes()) Fso.CopyFile nFilePathes(lIndex) & "\*.xls", "c:\temp\" Next lIndex