Путь исполняемого файла

[asn]

Как получить полный путь к исполняемому файлу т.е. какой код надо вставить в файл .exe, чтобы при его запуске получить путь к нему?

[Amed]

App.Path & "\" & App.EXEName & ".exe"

Тут на первый взгляд все правильно, но по сути есть один баг. Найдешь - молодец

[asn]

Спасибо большое, это то что надо. Баг увидел, но причину не искал, т.к. достаточно было только App.Path, т.е. пути к папке.

[keks-n]

Баг в том, что исполнякмый файл может быть не exe, так? При таком раскладе GetModuleFileName рулит.

[Amed]

keks-n, мимо.

[alibek]

Да не баг это вовсе.
Просто надо помнить, что App.Path не добавляет слеш в конце, но для корневого каталога слеш добавляется.

[Amed]

Сам по себе это не баг, однако в месте, где такой код будет использоваться, будет баг.

[Конь]

Ну тогда надо просто юзать If Right(str, 1) = "\"...

[tyomitch]

Баг в том, что исполнякмый файл может быть не exe, так? При таком раскладе GetModuleFileName рулит.

Совершенно верно.
Странно, почему Amed не согласился.

[Antonariy]

Может потому, что исполняемый файл это все-таки exe, а не ocx или dll, да и автор четко указал - exe?

[tyomitch]

Ещё исполняемый файл может быть scr, com, pif, cmd и т.д.
Что, вирусов по почте никто не получал?

[lister]

Офигеть... Тему раздули аж на 10 ответов. В FAQ ее если там нету...

[keks-n]

Вообще, лучше таки юзать GetModuleFilename во всех случаях. Поскольку, что App.Path, что App.EXEName юзают её, а потом вытаскивают нужную часть, на что уходит время.

[Amed]

keks-n, часы-годы?

[keks-n]

Несколько десятков лишних тактов процессора. А их надо экономить

[inf]

Вообще, лучше таки юзать GetModuleFilename во всех случаях. Поскольку, что App.Path, что App.EXEName юзают её, а потом вытаскивают нужную часть, на что уходит время.

А по подробнее можно. Я не понимаю...

[Amed]

Да уж нам тут хоть как бы сделать
На досуге замерь разницу во времени исполнения этих двух вариантов

[inf]

Да уж нам тут хоть как бы сделать
На досуге замерь разницу во времени исполнения этих двух вариантов

keks-n прав ресурсы надо экономить

[Amed]

inf, App.Path - функция вида

Код: Выделить всё

Private Function AppEXEName As String
    Dim ModuleName As String
    ...
    AppEXEName= Left$(ModuleName, GetModuleFileName(hInst, ModuleName, Len(ModuleName)))
End Function

Ты же не пишешь

Код: Выделить всё

path=AppEXEName()

Private Function AppEXEName As String
    AppEXEName=App.EXEName
End Function

вместо

Код: Выделить всё

path=App.EXEName

Верно?

Экономить так ресурсы - то же самое, что бережно складировать у себя дома все попавшие в руки копеечные монеты.