Вход на сайт
basik 6.0
107 просмотров
Перейти к просмотру всей ветки
в ответ серёга XXL 07.05.03 23:37
Private Sub Command1_Click()
dim ergbenis as String
dim Pfad as String
Pfad = "c:\moj_ordner\programma.exe"
' если путь полность задать
Pfad = ".\moi_ordner\programma.exe"
' если путь не полностью задать
ergbenis = shell(Pfad)
End Sub
Ученье свет, а не ученье - чуть свет и на работу.
dim ergbenis as String
dim Pfad as String
Pfad = "c:\moj_ordner\programma.exe"
' если путь полность задать
Pfad = ".\moi_ordner\programma.exe"
' если путь не полностью задать
ergbenis = shell(Pfad)
End Sub
Ученье свет, а не ученье - чуть свет и на работу.
Ученье свет, а не ученье - чуть свет и на работу.