Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Установка курсора с указанным именем файла  [new]
NickBell
Member

Откуда: Tbilisi
Сообщений: 2876
Здравствуйте,

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

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


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


Но мне хотелось бы, чтобы просто открылась папка с указанным адресом и произошла бы установка курсора на нужный файл без его открытия. К сожалению, пока мне не удалось найти нужную команду, которая выполнила бы эту операцию.
2 апр 21, 00:39    [22303201]     Ответить | Цитировать Сообщить модератору
 Re: Установка курсора с указанным именем файла  [new]
court
Member

Откуда:
Сообщений: 2271
NickBell
Но мне хотелось бы, чтобы просто открылась папка с указанным адресом и произошла бы установка курсора на нужный файл без его открытия. К сожалению, пока мне не удалось найти нужную команду, которая выполнила бы эту операцию.

Shell "explorer.exe /select,""C:\Temp\wmsetup.log""", vbNormalFocus
2 апр 21, 00:59    [22303204]     Ответить | Цитировать Сообщить модератору
 Re: Установка курсора с указанным именем файла  [new]
NickBell
Member

Откуда: Tbilisi
Сообщений: 2876
court,

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

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
2 апр 21, 21:22    [22303532]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить