ﾊﾞｯﾁﾌｧｲﾙか ｺﾏﾝﾄﾞ ﾌﾟﾛﾝﾌﾟﾄにて

copy *日付*.csv 日付.csv
としてやればよい｡

例
copy *20130528* 20130528.csv


Errorfile_YYYYMMDD_userID.csvの YYYYMMDDの部分を ｷｰにして 連結し YYYYMMDDで出力させる｡

現在､VBAでは下記のｺｰﾄﾞまで完成しているのですが､これに特定の文字列+日付で対象ﾌｧｲﾙを絞り込むところで詰まっています｡

Option Explicit

'ﾌｧｲﾙ処理
Sub appendFile(path As String, fname As String, outfname As String)
Dim buf As String, idx As String
Dim fname2 As String, fname3 As String
Dim x As Long

'CSVﾌｧｲﾙ読み込み＆書き込み
fname2 = path & fname
Open fname2 For Input As #1
Open outfname For Append As #2
Do Until EOF(1)
Line Input #1, buf
Print #2, buf
Loop
Close #2
Close #1
End Sub

'ﾌｧｲﾙ探索＋処理実行
Sub hogeCoupling(path As String, ext As String, outfname As String)
Dim fcol As Object, re As Object
Dim flist As Variant, remat As Variant
Dim pat As String, fname As String
Dim n As Long

'処理対象ﾌｧｲﾙ探索＋処理実行
Set fcol = CreateObject("Scripting.FileSystemObject").GetFolder(path).Files
Set re = CreateObject("VBScript.RegExp")
pat = "\." & ext & "$"
With re
.Pattern = pat
.IgnoreCase = True
.Global = True
For Each flist In fcol
Set remat = .Execute(flist.Name)
If remat.Count > 0 Then
Call appendFile(path, flist.Name, outfname)
End If
Next flist
End With
Set re = Nothing
Set fcol = Nothing
End Sub

Sub main()
Call hogeCoupling("C:/Log/", "csv", "C:/test/出力結果/test.csv")
End Sub

Errorfile_YYYYMMDD_userID.csvというﾌｧｲﾙ

だったら､

pat = "\." & ext & "$"

のところを､

pat = "Errorfile_([0-9]{8})_[^.]+\." & ext & "$"

という感じかな｡
＃ ext という仮引数名が合わなくなっているけれども...

んで､出力結果のﾌｧｲﾙに日付を含めるには､SubMatches ｺﾚｸｼｮﾝを使う｡
http://msdn.microsoft.com/en-us/library/y27d2s18%28VS.85%29.aspx
正規表現でｶｯｺでくくったところに相当する文字列が SubMatches で取得できる｡

If remat.Count > 0 Then
 dateStr = remat.SubMatches(0)  ' 日付に相当するものが dateStr に入ってるはず

 ここで､dateStr を使って､出力先のﾌｧｲﾙ名を適切に作る

 Call appendFile(path, flist.Name, ★)
End If