Задать путь для открытия файла в директории приложения - 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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