VBCoding Библиотека кодов Visual Basic 6 Другое Как получить путь к EXE файлу программы

Visual Basic 6
Как получить путь к EXE файлу программы
Public Function GetEXEPath() As String
Dim s As String
s = App.Path
If Right(s, 1) <> "\" Then s = s & "\"
GetEXEPath = s & App.EXEName & ".exe"
End Function
 

Добавить комментарий


Защитный код
Обновить

 
VBCoding Библиотека кодов Visual Basic 6 Другое Как получить путь к EXE файлу программы  
Powered by Exponenta -