Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Установка курсора с указанным именем файла / 3 сообщений из 3, страница 1 из 1
02.04.2021, 00:39
    #40058984
NickBell
NickBell
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Установка курсора с указанным именем файла
Здравствуйте,

На форме есть кнопка и при нажатии на нее, нужно будет, чтобы произошла установка курсора на конкретный файл по указанному адресу.

Открывает указанную папку с адресом D:\PDF
Код: vbnet
1.
2.
3.
4.
5.
Private Sub cmd_open_1_Click()
Dim Foldername As String
    Foldername = "D:\PDF"
    Shell "C:\WINDOWS\explorer.exe """ & Foldername & "", vbNormalFocus
End Sub



Открывает сам файл с указанным адресом
Код: vbnet
1.
2.
3.
4.
5.
Private Sub cmd_open_2_Click()
Dim Foldername As String
    Foldername = "D:\PDF\about.jpg"
    Shell "C:\WINDOWS\explorer.exe """ & Foldername & "", vbNormalFocus
End Sub



Но мне хотелось бы, чтобы просто открылась папка с указанным адресом и произошла бы установка курсора на нужный файл без его открытия. К сожалению, пока мне не удалось найти нужную команду, которая выполнила бы эту операцию.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.04.2021, 00:59
    #40058986
court
court
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Установка курсора с указанным именем файла
NickBell
Но мне хотелось бы, чтобы просто открылась папка с указанным адресом и произошла бы установка курсора на нужный файл без его открытия. К сожалению, пока мне не удалось найти нужную команду, которая выполнила бы эту операцию.

Код: vbnet
1.
Shell "explorer.exe /select,""C:\Temp\wmsetup.log""", vbNormalFocus
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.04.2021, 21:22
    #40059197
NickBell
NickBell
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Установка курсора с указанным именем файла
court,

Спасибо большое за помощь, это то, что мне нужно было.
Учитывая использование гиперссылки, использован следующий код.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub cmd_open_Click()
Dim Foldername As String
Dim t1 As String
Dim t2 As String
    Foldername = Me.pdf_link_document
    t1 = InStr(1, Foldername, "#")
    t2 = Left(Foldername, t1 - 1)
    Shell "C:\WINDOWS\explorer.exe /select,""" & t2 & "", vbNormalFocus
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Установка курсора с указанным именем файла / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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