Открытие папки

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Kolobuk
Обычный пользователь
Обычный пользователь
 
Сообщения: 61
Зарегистрирован: 24.10.2006 (Вт) 20:03

Открытие папки

Сообщение Kolobuk » 09.01.2007 (Вт) 15:01

Привет.
Как сделать, чтиобы при нажатии определённой кнопки на форме открывалась папка (например C:\MyPapka)?
Для приложения Shell "путь"
Для папки не нашёл комманды :(

ACiD
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 261
Зарегистрирован: 10.12.2005 (Сб) 2:29
Откуда: г. Санкт - Петербург

Сообщение ACiD » 09.01.2007 (Вт) 15:08

Shell "explorer c:\MyPapka", vbNormalFocus

Kolobuk
Обычный пользователь
Обычный пользователь
 
Сообщения: 61
Зарегистрирован: 24.10.2006 (Вт) 20:03

Сообщение Kolobuk » 09.01.2007 (Вт) 20:32

Большое спасибо!
Всех благ!

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16478
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 10.01.2007 (Ср) 4:23

ACiDXX
А что если в пути будет пробел?
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

NIC
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 175
Зарегистрирован: 26.04.2005 (Вт) 4:50

Сообщение NIC » 14.01.2007 (Вс) 11:45

Через API. (Работает)

Вот код:

Код: Выделить всё
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const sw_normal = 1

Private Sub Form_Load()
a = ShellExecute(Me.hwnd, "open", "c:\program files", "", "", sw_normal)

End Sub


Константы в API вьювере.

-=TsA=-
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 142
Зарегистрирован: 21.09.2004 (Вт) 14:32
Откуда: Татарстан, Заинск

Сообщение -=TsA=- » 14.01.2007 (Вс) 19:34

Хакер писал(а):ACiDXX
А что если в пути будет пробел?


Код: Выделить всё
    Shell "explorer " & """" & "C:\Мои документы" & """", vbNormalFocus

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16478
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 14.01.2007 (Вс) 19:38

-=TsA=-

Вы явно не поняли сути проблемы. Здесь не я спрашиваю "Ой, а что делать если в файле пробел". Я то знаю что в таком случае делать. Я таким образом (задавая вопрос "а что если...") указываю на ошибку ACiDXX
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

-=TsA=-
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 142
Зарегистрирован: 21.09.2004 (Вт) 14:32
Откуда: Татарстан, Заинск

Сообщение -=TsA=- » 14.01.2007 (Вс) 20:34

Хакер писал(а):-=TsA=-

Вы явно не поняли сути проблемы. Здесь не я спрашиваю "Ой, а что делать если в файле пробел". Я то знаю что в таком случае делать. Я таким образом (задавая вопрос "а что если...") указываю на ошибку ACiDXX


Я все это прекрасно понял :lol:
Это я отвечаю Kolobuk что делать если будет такая ситуация :roll:


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 103

    TopList