Мне не лень прочитать документацию, просто я кое что не понимаю, ну прочёл я
Item(<Индекс>)
Назначение: получение объекта WebBrowser. Возвращает объект WebBrowser.
Параметры:
<Индекс> - необязательный. Индекс в коллекции окон (отсчёт - с нуля). По умолчанию - 0.
Описание: метод возвращает объект того же типа, что и оператор CreateObject("InternetExplorer.Application") или CreateObject("Shell.Explorer").
Пример:
'Закрытие всех окон Explorer'а
Не пойму зачем мне Explorer, возможно я его путаю с IE
Если можно еще разжевать
Добавлено через 1 день, 2 часа, 23 минуты и 32 секунды:уже 915 просмотров,сума сойти!!!!!!! Все так хотят папки открывать?
Сообщаю, проблема решена!!!!
Вот её решение Sleep 50 'нужна задержка, так как окно не успевает создаться
Спасибо всем, кто помогал!!!!!!!!!!!
Осталось одно, помогите кто знает:
как ещё по усмотрению программировать опцию Упорядочить значки при просмотре папки, имеется ввиду например по Размеру?
?
Всего там можно сортироать, по арайей мерев ХР по
Имя
Размер
Тип
Изменён
Даже не знаю с чего начинать?
Заранее спасибо
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