На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное DigiMania RSS
msm.ru
! `
Не забудьте заглянуть в VB6 FAQ, так как большая часть VB-примеров актуальна и для VBA-раздела ;)
Модераторы: Old Bat, MIF
  
    > Выбор папки
      Используем метод BrowseForFolder объекта Application:

      ExpandedWrap disabled
        Set wshell = CreateObject("Shell.Application")
        'игнорируем ошибку, если нажата Cancel
        On Error Resume Next
        Set iPath = wshell.BrowseForFolder(&H0, "Выберите папку, в которой находятся результаты исследований:", &H1, 17)
        If Not iPath Is Nothing Then
          FolderPath = iPath.Self.Path 'вариант для WINNT
         'FolderPath = iPath.Items.Item.Path 'универсальный вариант для WIN9х/NT
        Else
        'нажата Cancel
        Endif

      Краткое описание параметров функции BrowseForFolder

      Первый параметр – передает диалоговому окну дескриптор окна, всегда равен 0
      Второй параметр – строка, выводимая в диалоговом окне под заголовком
      Третий параметр – 32-разрядный флаг, задаем свойства диалогового окна
      Четвертый параметр (опционально) – папка по умолчанию

      Константы для третьего параметра

      &Н0001 - Можно выбирать лишь папки файловой системы. Если этот разряд установлен, то при выборе папки, не принадлежащей к файловой системе (например, Control Panel), кнопка OK будет недоступна.
      &Н0002 - Во время поиска компьютера пользователю запрещено просматривать папки ниже этого домена в пределах сети.
      &Н0004 - Под диалоговым окном появляется область для вывода сведений о состоянии (однако я не смог найти способ вывода состояния).
      &Н0008 - Возвращает только каталоги, расположенные в иерархии файловой системы выше данного.
      &Н0010 - Выводит в диалоговом окне поле ввода, в котором пользователь может задать имя элемента.
      &Н0020 - Проверяет имя, набранное в поле ввода.
      &Н1000 - Позволяет пользователю просматривать сетевую ветвь пространства имен оболочки в поисках компьютеров.
      &Н2000 - Позволяет пользователю просматривать сетевую ветвь пространства имен оболочки в поисках принтеров.
      &Н4000 - Позволяет искать любые элементы.

      Константы для четвертого параметра (вместо константы вы также можете указать путь к желаемой папке, в этом случае указанная папка будет являться корневой в отображаемом диалоговом окне)

      0 - Корневым каталогом является (виртуальная) папка Desktop. При использовании этой константы с &H0001 для третьего параметра возникают проблемы с кнопкой ОК.
      1 - Корневым каталогом является Internet Explorer.
      2 - Корневым каталогом является папка Programs из меню Start.
      3 - Корневым каталогом является папка Control Panel. У третьего параметра должно быть значение &Н4000 (поиск любых элементов).
      4 - Корневым каталогом является папка Printers. У третьего параметра
      должно быть значение &Н4000 (поиск любых элементов).
      5 - Корневым каталогом является папка Documents из меню Start.
      6 - Корневым каталогом является папка Favorites из меню Start.
      7 - Корневым каталогом является папка Startup из меню Start. У третьего параметра должно быть значение &Н4000 (поиск любых элементов).
      8 - Корневым каталогом является папка Recent. У третьего параметра должно быть значение &Н4000 (поиск любых элементов).
      9 - Корневым каталогом является папка SendTo. У третьего параметра должно быть значение &Н4000 (поиск любых элементов).
      10 - Корневым каталогом является папка Recycle Bin. У третьего параметра должно быть значение &Н4000 (поиск любых элементов).
      11 - Корневым каталогом является папка меню Start.
      16 - Корневым каталогом является (физическая) папка Desktop.
      17 - Корневым каталогом является папка My Computer.
      Сообщение отредактировано: Old Bat -
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script Execution time: 0,0783 ]   [ 17 queries used ]   [ Generated: 21.03.19, 05:45 GMT ]