powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Плиз срочно помогите
6 сообщений из 6, страница 1 из 1
Плиз срочно помогите
    #34558781
Игрик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Подскажите плиз кто знает как прописать кнопку чтобы она открывала папку
...
Рейтинг: 0 / 0
Плиз срочно помогите
    #34558810
Фотография gjghjc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
поиск по COMMONDIALOG
...
Рейтинг: 0 / 0
Плиз срочно помогите
    #34558814
Игрик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спосибо посмотрю
...
Рейтинг: 0 / 0
Плиз срочно помогите
    #34569954
Фотография Залетин Виталий Викторович
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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

Const SW_SHOWNORMAL = 1

Использзование:
ShellExecute 0, vbNullString, _
"mailto:webmaster@vbstep.ru", _
vbNullString, "C:\", SW_SHOWNORMAL
Или:
ShellExecute 0, "OPEN", _
"c:\", _
vbNullString, "C:\", SW_SHOWNORMAL
...
Рейтинг: 0 / 0
Плиз срочно помогите
    #34570764
Charles Weyland
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Залетин Виталий Викторович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

Const SW_SHOWNORMAL = 1

Использзование:
ShellExecute 0, vbNullString, _
"mailto:webmaster@vbstep.ru", _
vbNullString, "C:\", SW_SHOWNORMAL
Или:
ShellExecute 0, "OPEN", _
"c:\", _
vbNullString, "C:\", SW_SHOWNORMAL

неверно, это работает, но я обычно пользуюсь
shell "explorer ......" - вместо "...." ставлю имя файла
Код: plaintext
1.
2.
3.
dim s as string
s=app.path & "\file.txt" 'Открываю file.txt из того каталога, где лежит программа
Shell "explorer  " & s
и усё :)
...
Рейтинг: 0 / 0
Плиз срочно помогите
    #34570768
Charles Weyland
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Charles Weyland
Код: plaintext
1.
2.
3.
dim s as string
s=app.path & "\file.txt" 'Открываю file.txt из того каталога, где лежит программа
Shell "explorer  " & s
и усё :)
пардон, заблудился.
Конечно же имелось ввиду
Код: plaintext
1.
2.
3.
4.
dim s as string
'Открываю папку my_folder из того каталога, где лежит программа
s=app.path & "\my_folder" 
Shell "explorer  " & s   
но и файлы вроде так можно открывать, как я открыл выше
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Плиз срочно помогите
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]