Консультация № 181670
29.12.2010, 17:10
0.00 руб.
0 1 0
Здравствуйте, уважаемые эксперты! Прошу Вас ответить на следующий вопрос:
Имеется нижеследующий код на языке ВБА, как ещё по усмотрению программировать опцию Упорядочить значки при просмотре проводником нужной папки, имеется ввиду например по Размеру?????
Всего там можно сортироать, по крайней мере в ХР по
Имя
Размер
Тип
Изменён
Внесите в скрипт дополнения пожалуйста

Код:
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

Обсуждение

Неизвестный
31.12.2010, 23:53
общий
ссылки имею
на API:
http://blacksus.narod.ru/articles_1_1_7.html
И ещё на VB:
http://support.microsoft.com/kb/170884/ru
Но что то мудрёно, не ужели так сложно??

Форма ответа