'
'ﾂｰﾙ → 参照設定で Microsoft ActiveX Data Objects *.* Library にﾁｪｯｸを入れておいて下さい

'


Sub main()
Dim p As String
'対象ﾌｫﾙﾀﾞを指定してください｡
'このﾌｫﾙﾀﾞに この実行用のﾌﾞｯｸは 入れないでください｡

p = "C:\test\"

'処理対象となる拡張子を指定して 呼び出します｡
Call jikkou(p, "csv")

End Sub


Sub jikkou(p As String, s As String)
 
  'Recordsetを作成
 Dim RS As ADODB.Recordset
 Set RS = New ADODB.Recordset
 RS.Fields.Append "Name", adVarWChar, 256
 RS.Fields.Append "Date", adDate
 RS.Fields.Append "Size", adInteger
 RS.Open

  'ﾃﾞｰﾀを格納
 Dim Path As String
 Path = Dir(p & "*." & s)
 Do Until Path = ""
 RS.AddNew "Name", Path
 RS.Update
 Path = Dir()
 Loop


 If RS.RecordCount = 0 Then
 MsgBox "該当ﾃﾞｰﾀなし"
 RS.Close
 Set RS = Nothing
 Exit Sub
 End If

  'ｿｰﾄ
 RS.Sort = "Name"  'ﾌｧｲﾙ名順
 RS.MoveFirst

  '表示
 k = 1
 Do Until RS.EOF
 a = Right("0" & Trim(Str(k)), 2) & "-"
 Name p & RS.Collect("Name") As p & a & RS.Collect("Name")
 k = k + 1
 If k > 99 Then Exit Do
 RS.MoveNext
 Loop

 RS.Close
 Set RS = Nothing

End Sub

実行する前に
ﾂｰﾙ → 参照設定で Microsoft ActiveX Data Objects *.* Library にﾁｪｯｸを入れておいて下さい｡

ﾊﾞｰｼﾞｮﾝは 一番 大きいものでいいです｡