Выбрать 1 файл в папке

Dim oSh As Object
Set oSh = CreateObject("Shell.Application")
oSh.Open ("C:\Users\Samsung\Desktop\Новая папка (2)\Новая папка")

Dim oSh as Object, objFolder as Object, TotalCount&
 
Set oSh = CreateObject("Shell.Application")
Set objFolder = oSh.NameSpace("C:\Users\Samsung\Desktop\Новая папка (2)\Новая папка")
Set objItems = objFolder.Items()
TotalCount = objItems.Count
MsgBox "В папке """ & objFolder.Title & """ элементов всего - " & TotalCount, vbInformation

if not objItems is Nothing then
  for each objItem in objItems
    if not objItem.isFolder then
      debug.? objItem.Name 'Path
    end if
  next
end if

    Dim oSh As Shell, objFolder As Object, objItem As Object, TotalCount, FName As String
     FName = "C:\"
    Set oSh = CreateObject("Shell.Application")
    Set objFolder = oSh.NameSpace(FName)
    
        For Each objItem In objFolder.Items()
            If Not objItem.IsFolder Then
                Debug.Print objItem.Name 'Path
                TotalCount = TotalCount + 1
            End If
        Next
    MsgBox "В папке """ & objFolder.Title & """ всего файлов ! - " & TotalCount, vbInformation

Dir("D:\Temp\")

    Dim F As String
    F = Dir("D:\Temp\")
    Do While Len(F)
        Debug.Print F
        F = Dir()
    Loop