Задать путь для открытия файла в директории приложения - VB

Формулировка задачи:

Здравствуйте, неполучается открыть файл на прямую, пытаюсь открыть так:

Private Sub Command4_Click()
Dim a As Object
message = "Нажмите Ок"
  title = "Информация"
  buttonasicons = vbYes
  response = MsgBox(message, buttonasicons, title)
If response = vbYes Then
a.Open App.Path & "\01.jpg"
End If
End Sub

или я что то неправильноделаю!

Решение задачи: «Задать путь для открытия файла в директории приложения»

textual
                            Листинг программы 
                        
                            Shell "cmd /c """ & App.Path & "\01.jpg"""

Оцени полезность:

14 голосов , оценка 3.929 из 5

Похожие ответы