Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Открытие папки в приложени VB6 Добавлено: 28.11.11 16:37  

Автор вопроса:  Иван
Добрый день! Подскажите пожалуйста как сделать чтобы в приложении VB6 при нажатии кнопки открывалась нужная папка.
Спасибо!

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #1 Добавлено: 28.11.11 21:43
Shell.
пожалуйста

Ответить

Номер ответа: 2
Автор ответа:
 MISTER X



ICQ: 463865965 

Вопросов: 31
Ответов: 190
  Web-сайт: studioartf.ru
 Профиль | | #2 		Добавлено: 18.12.11 15:33
Еще вариант
  1.  
  2. Option Explicit
  3.  
  4. Private Declare Function ShellExecute Lib "shell32.dll" _
  5.     Alias "ShellExecuteA" _
  6.     (ByVal hWnd As Long, _
  7.     ByVal lpOperation As String, _
  8.     ByVal lpFile As String, _
  9.     ByVal lpParameters As String, _
  10.     ByVal lpDirectory As String, _
  11.     ByVal nShowCmd As Long) As Long
  12.  
  13. Private Sub FileOpen_Click()'открываем файл
  14. ShellExecute 0, vbNullString, "D:\1.doc", _
  15.         vbNullString, vbNullString, vbNormalFocus
  16. End Sub
  17. Private Sub DirOpen_Click()'открываем папку
  18. ShellExecute 0, vbNullString, "D:\", _
  19.         vbNullString, vbNullString, vbNormalFocus
  20. End Sub

AgentFire ShellExecute незачто)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам