Option Explicit
'Автор: Немиро Алексей, 21.11.2007
'Aleksey$Nemiro.Ru admin@kbyte.ru
'http://aleksey.nemiro.ru http://kbyte.ru

Private Sub Command1_Click()
 If Not IsDate(Text2) Then MsgBox "Дата должна быть в формате DD.MM.YYYY!", vbCritical: Exit Sub
 Dim d As Date
 Dim i As Long, ic As Long
 ic = File1.ListCount - 1
 d = CDate(Text2)
 List1.Clear
 For i = 0 To ic
  File1.ListIndex = i
  If DateDiff("y", FileDateTime(File1.Path & "\" & File1.FileName), d) = 0 Then
   List1.AddItem (File1.FileName)
  End If
 Next i
End Sub

Private Sub Dir1_Change()
 File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
 Dir1.Path = Drive1.Drive
 File1.Path = Dir1.Path
End Sub