Открытие первого или последнего файла в папке

      fd$=Dir$(Путь+"\*.doc",vbNormal)
 
      if fd$ <> "" then Documents.open(Путь+"\"+fd$) ' первый
 
      pF$=fd$
 
      Do
 
        cF$=Dir$()
 
        if cF$="" then exit Do
 
        pF$=cF$
 
      Loop
 
      Documents.open(Путь+"\"+pF$) ' последний

option compare text
Sub GetFileDate()
Dim FSO As Object 'As New FileSystemObject
Dim Dir As Object 'Scripting.Folder
Dim File As Object 'Scripting.File
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Dir = FSO.GetFolder("Ё:\Путь\Кпапке\Сфайлами\")
For Each File In Dir.Files
  With File
    If .Name Like "*.doc" Then
      'анализируйте полученные даты, запоминайте минимальную и(ли) максимальную вместе с именем - как-то так?
      Debug.Print .Name, .DateCreated, .DateLastModified, .DateLastAccessed
    End If
  End With
Next
End Sub

Sub mkFlist(cDir As String)
 
Dim Fnames(1 To 1000) As String
Dim Fdates(1 To 1000) As Date
Dim dtemp             As Date
 
    '::: Загрузка
 
    cF$ = Dir$(cDir$ + "\*.*", vbNormal)
    
    Do
    
      If cF$ = "" Then Exit Do
       
      ptrF% = ptrF% + 1
      
      Fnames(ptrF%) = cF$
      Fdates(ptrF%) = FileDateTime(cDir$ + "\" + cF$)
 
      cF$ = Dir$()
      
    Loop
    
    '::: Сортировка по дате
    
    For i% = 1 To ptrF% - 1
        For j% = i% + 1 To ptrF%
            If Fdates(j%) < Fdates(i%) Then
               dtemp = Fdates(j%)
               Fdates(j%) = Fdates(i%)
               Fdates(i%) = dtemp
               Tmp$ = Fnames(j%)
               Fnames(j%) = Fnames(i%)
               Fnames(i%) = Tmp$
             End If
        Next j%
    Next i%
 
    '::: Печать
    
    For i% = 1 To ptrF%
        Debug.Print Fnames(i%); " "; Fdates(i%)
    Next i%
 
End Sub
 
Sub test()
 
    mkFlist "D:\OFF_VBA\Задачи\Общие"
 
End Sub