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

名前

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

本文 LESIAさん、Function構文を挙げていただき、どうもありがとうございました。 例えば""C:\temp\" & m_strDate & "9999\""より検索開始し、"*.xls"ファイルの全てを、"C:\temp\"フォルダ配下へコピーするといった事をしたい時、 じゃんぬねっとさんのFunction構文を定義しておいて、 Option Explicit 'オブジェクト,変数の宣言 Dim m_strDate As String '年月日 Dim nRootPath As String '検索開始位置 Dim nPattern As String '検索対象ファイル '検索処理開始 Private Sub cmdSyori_Click() Dim Fso Dim lCopy As String Dim lIndex As Long Dim lBounds As String Dim nReturns() As String Dim nFilePath As String Dim nFilePathes() As String '★★ファイル検索開始★★ 'ファイル検索開始位置指定 nRootPath = "C:\temp\" & m_strDate & "9999\" '検索対象ファイル指定 nPattern = "*.xls" 'ファイル名に「nPattern（変数）」を含むファイルを、 'nRootPathフォルダ配下よりスタートし、最下層まで検索し取得する nFilePathes() = GetFilesMostDeep(nRootPath, nPattern) '該当のファイルが検索できなかった（存在しなかった）場合 If lIndex = 1 Then MsgBox ("該当のファイルが存在しませんでした。") '該当のファイルが検索できた（存在した）場合 Else ' 取得したファイルを列挙し、c:\tempフォルダ配下へコピーする。 (※ 添字が 1 からであることに注意) For lIndex = 1 To UBound(nFilePathes()) Set Fso = CreateObject("Scripting.FileSystemObject") Fso.CopyFile nFilePathes(lIndex), "c:\temp\" Next lIndex 'コピーしたファイル数を表示する。 MsgBox ("合計 " & lIndex - 1 & " 個のファイルをコピーしました。") End If End Sub とコーディングしてみたら、うまく*.xlsファイルを取得することができたのですが、 LESIAさんのFunction構文を用いて、 『"C:\temp\"配下の"m_strDate(=20050325)"が入っているフォルダを検索し、 そのフォルダ配下の"*.xls"ファイルを、"c:\temp\"配下に格納する』ということをしたい場合、 上記をどのように編集すればよろしいでしょうか？ じゃんぬねっとさんの構文をなんとなく理解しながらそのまま用いていたので、 LESIAさんの構文をどのように利用すればよいかわからないので、 ご教授願います。