Как правильно задать путь к файлу...

[Ramzes]

При работе с посторонними файлами у меня возникает проблема: я задаю програмным кодо путь к файлу (в основном этот файл находится рядом с моей прогой), а если пользователь переместит мою программу, как задать имя файла через (\..\) или чтото в этом роде, я точно н знаю. Помогите пожалуйста, ну очень надо.

[Хой]

Ну смотри:
'-------------------------------
Dim Pyt As String
Pyt=App.Path & "\File.dat"
'-------------------------------
App.Path показывает путь к папке из каторой запушена программа,
то есть, если я запускаю прогу из "D:\QWERTY", то App.Path вернёт значение "D:\QWERTY".

переменная Pyt будет содержать путь к файлу File.dat
ты можешь укозать и поддиректорию ("\FDFD\CWA\File.dat")
Ну яя думаю понятно.

[Ramzes]

Спасибо, я все понял, РАБОТАЕТ. А есть други варианты, так просто интересно

[MEMBER]

Есть.

Dim Pyt As String

Pyt=App.Path
If Right (Pyt,1) <>"\" Then
Pyt = Pyt + "\File.dat"
Else
Pyt = Pyt + "File.dat"
End if

[Urvin]

Кстати, вторым вариантом пользоваться лучше - если запуск идет сразу с диска (D:), APP.PATH вернет "D:\", а если нет, то "D:\Muzdie"

[mad_Max]

Лично я для краткости использую

FilePath = IIf(Right(app.path, 1) = "\", app.path, app.path & "\") & "FileName.dat"

[Vi]

dir\\file эквивалентно dir\file, так что вылавливание "\" ни к чему хорошему не приведет. Потому как системным разделителем может быть и не "\", а, например, "/".

dir\\file == dir/\file == dir//file == dir/file

Поэтому App.Path & "\File.dat" - простое и грамотное решение.

[MEMBER]

Для того, чтобы развеять ваши опасные заблуждения, рекомендую нижеследующий код скомпилировать, поместить ехе в корень любого диска и запустить. После чего поместить ехе в любую папку, запустить и сравнить результаты.

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

Sub Form_Load()
msgbox(App.Path)
End Sub


ЗЫ "\\" считается за "\" в 2000 (на других НТ не проверял), но в 9х "\\" может вызвать неправильную работу кода и сильное торможение программы. Вот это я проверял. На собственной, так сказать...