Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const SW_SHOWNORMAL = 1 'сделать окно в режиме нормальный
Const SW_SHOWMINIMIZED = 2 'свернуть окно
Const SW_MAXIMIZE = 3 'сделать окно во весь экран
'___________________________________________________________________________
Private Sub CommandButton1_Click()
 
  Dim Папка As String
  Set objShell = CreateObject("Shell.Application")
  Папка = "D:\Рабочая папка\Нужное" 'не нужно в конце места нахождения папки ставить наклонную
  objShell.ShellExecute Папка & "", , , , 0 'последняя цифра означает: 0 - скрытое окно
  Sleep 50 'нужна задержка, так как окно не успевает создаться
  For Each w In objShell.Windows
      If InStr(TypeName(w.Document), "ShellFolderView") > 0 Then
         If w.Document.Folder.self.Path = Папка Then
            w.Document.CurrentViewMode = 4
'последняя цифра означает:
'Значки 1
'Значки 2
'Список 3
'Таблица 4
'Эскизы страниц 5
'Плитка 6
'Просмотр диафильмов 7
'Значки 8
         ShowWindow w.hwnd, 3
'SW_SHOWNORMAL = 1 'сделать окно в режиме нормальный
'SW_SHOWMINIMIZED = 2 'свернуть окно
'SW_MAXIMIZE = 3 'сделать окно во весь экран
              Exit For
          End If
      End If
  Next
  Set objShell = Nothing
 
End Sub