Запуск стороннего приложения - VB (59076)

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

Привет, простите если затрудняю... МОжно реализовать запуск стороннего приложения, находдящегося на рабочем столе, и имеющее определенное название..???? Например, сделать программу, на форме только одна кнопка, при нажатии на которую запускается ярлык Visual Basic который стоит у меня на раб.столе...

Решение задачи: «Запуск стороннего приложения»

textual
                            Листинг программы 
                        
 
                        
                          
                    
    Dim objService As Object, colProcesses As Object, objProcess As Object
    Set objService = GetObject("WinMgmts:\\.\Root\CIMV2")
    Set colProcesses = objService.ExecQuery("select * from Win32_Process WHERE Name='VB6.EXE'")
    Counter = 0
    For Each objProcess In colProcesses
        If StrComp(objProcess.Properties_("ExecutablePath").Value, _
                   "D:\Program Files (x86)\Microsoft Visual Studio\VB98\VB6.exe", _
                    vbTextCompare) = 0 Then Counter = Counter + 1
    Next
    If Counter < 1 Then
    '........ГЄГ®Г¤ Г§Г*ГЇГіГ±ГЄГ* ГЇГ°ГЁГ«Г®Г¦ГҐГ*ГЁГї........
    End If