Просмотр папки с файлами

Вкратце, напрямую - Никак
эти настройки хранятся в реестре винды - помните преснопамятные настройки для каждой папки...
обходной путь - подстроить их для папки, которую вы собираетесь открыть...
начало пути:

внешняя ссылка
внешняя ссылка
внешняя ссылка

Если удастся докопаться - просьба дописать топик

Отредактировано VBA-addict (20.12.2010 13:48:33)

Dim myWord As Word.Application
Set myWord = New Word.Application 'объявляем объект с именем ...
Call Shell("explorer D:\Рабочая папка\Пользователь\", vbNormalFocus) 'открыть папку с именем ...
Set myWord = Nothing

    Dim winShell As Object
    Dim w As Object
    
    Set winShell = CreateObject("Shell.Application").Windows
    For Each w In winShell
        If w.LocationURL Like "file:///D:/Рабочая*" Then CallByName w.Document, "CurrentViewMode", VbLet, 3: Exit For
   Next
   
'FVM_ICON = 1
'FVM_SMALLICON = 2
'FVM_LIST = 3
'FVM_DETAILS = 4
'FVM_THUMBNAIL = 5
'FVM_TILE = 6
'FVM_THUMBSTRIP = 7
'FVM_CONTENT = 8

осталось два вопроса
1.
как чтобы отказаться от Like с
'"file:///D:/Рабочая%20папка/Пользователь"
переделать в
"D:\Рабочая папка\Пользователь\"
2.
сделать Вид > Таблица сделали!!!!!!
Как сделать Упорядочить значки > Изменён??
Там ещё могут быть в Упорядочить значки:
Имя
Размер
Тип
Изменён

вот это поворот, я то думал, что
в строке
Then CallByName w.Document, "CurrentViewMode", VbLet, 8: Exit For

Например, 8 это будет показ FVM_CONTENT, но проверил, от 1 до 8 всё время показывает списком????????????
'FVM_ICON = 1
'FVM_SMALLICON = 2
'FVM_LIST = 3
'FVM_DETAILS = 4
'FVM_THUMBNAIL = 5
'FVM_TILE = 6
'FVM_THUMBSTRIP = 7
'FVM_CONTENT = 8

Что не так???????

Убрал МсгБокс, всё хорошо
Я понимаю, что Вам это не интересно проверять, но я 4 раза проверил лично, каждый раз менял
в строке CallByName w.Document, "CurrentViewMode", VbLet, 2
последнюю цифру и записывал на лист, какая константа как открывает папку, один раз записал так:
'FVM_ICON = 1 значки
'FVM_SMALLICON = 2 значки
'FVM_LIST = 3 список
'FVM_DETAILS = 4 таблица
'FVM_THUMBNAIL = 5 таблица
'FVM_TILE = 6 таблица
'FVM_THUMBSTRIP = 7 таблица
'FVM_CONTENT = 8 таблица
Без задней мысли второй раз проверил, всё уже по другому в том числе и появились
Эскизы страниц, Плитка, Просмотр диафильмов
А потом рискнул написать 9 и 10, ошибок не было, каждый раз открывало в каком то из режимов, где можно точно узнать об этом всём??
Можно ли и как папку сначала открывать невидимой, узнать открыв папку в каком она режиме просмотра открыта, изменить её до нужного и затем сделать видимой????