powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как открыть папку ?
4 сообщений из 4, страница 1 из 1
Как открыть папку ?
    #34791779
Alex Sheff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Чего-то никак немогу сообразить, как сделать чтобы при нажатии на кнопочку запускался проводник с нужной папочкой (путь генерится в фоксе)


Insert Into - это не оператор а команда...
...
Рейтинг: 0 / 0
Как открыть папку ?
    #34791803
Фотография Vladimir M Sklyar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GETDIR() ??
Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
Как открыть папку ?
    #34791819
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
func Execute
lpara tcFile, tcPath, tcParameters, tnType
DECLARE integer ShellExecuteA in SHELL32.DLL integer hWnd, string lpOperation, string lpFile, string lpParam, string lpDirectory, integer nShowCmd
if vartype(tcParameters)!='C'
	tcParameters=''
endif
if vartype(tcPath)!='C'
	tcPath=sys( 5 )+sys( 2003 )
endif
if vartype(tnType)!='N'
	tnType= 3 
endif
ShellExecuteA( 0 , 'open', tcFile, tcParameters, tcPath, tnType)
return

Запускать Execute("C:\MyFolder")
...
Рейтинг: 0 / 0
Как открыть папку ?
    #34791942
Alex Sheff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Большое спасибо Dima T
вса работает отлично

Insert Into - это не оператор а команда...
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как открыть папку ?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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