App.Path, файл не найден

[NightStorm]

Вот такой вопрос:
использую к примеру код:

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

Public Sub Form_Load()
Data1.DatabaseName = App.Path & "\database.mdb"
End Sub


На моём компе работает нормально (стоит Win2000), а на компе с XP говорит, что "Couldn't find file database.mdb".
Прога установлена НЕ в корень диска, поэтому на "\" думаю ругаться не стоит.

Помогите плиз?

[Хакер]

Ну посмотрел бы, чему равно выражение по правую сторону от =. Может и правда Not found.

[NightStorm]

Дык оно равно тому, чему надо. Ну т.е. "C:\Program files\ProgName". Прога просто тупо не видит файл, а он там есть.

[Хакер]

Дык оно равно тому, чему надо. Ну т.е. "C:\Program files\ProgName".

[NightStorm]

Дык оно равно тому, чему надо. Ну т.е. "C:\Program files\ProgName".

Не понял смысл ответа...

Вроде ж всё правильно получается. если app.path возвращает "C:\Program files\ProgName", то если туда приписать "\database.mdb", то как раз получается то, что надо. "C:\Program files\ProgName" & "\database.mdb" = "C:\Program files\ProgName\database.mdb"

*EDIT*
А, теперь понял смысл ответа. Сорри, не совсем прально сам ответил. "C:\Program files\ProgName" - это то, что app.path возвращает

[SLIM]

Тебя просили всего лишь узнать что стоит справа от знака "="
Также, удостоверся что "C:\Program files\ProgName\database.mdb" действительно существует
Багов в ф-ии не замечал

[Хакер]

Значит надо рядом попробывать открыть этот файл обычными VB-средствами. Значит можно попробовать передать short-путь.
Потом отписаться сюда о результатах.

[SSecurity]

кстати у тебя возникнет проблема если твою прогу положить на диск С )))))))))))))))))
поскольку путь "C:\\database.mdb" точно не найден.
Я обычно связку Instr с Replace чтобы "\\" на "\" заменить

посему заюзай простую конструкцию

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

Dim Path as string
Path = App.Path & "\database.mdb"
While Instr(1,Path,"\\")<>0
  Path = Replace(Path,"\\","\")
Wend
if Dir(Path) <> "" then
  Data1.DatabaseName = Path
else
  msgbox "не нашлось файлика по пути" & vbCrLf & Path
End if

[iGrok]

Я обычно связку Instr с Replace чтобы "\\" на "\" заменить

Спёрто из стандартного VB-инсталлера (Setup1). Только имя другое.

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

Function AddTailSlash(strPath As String) As String
    AddTailSlash = strPath & IIf(Right$(strPath, 1) = "\", "", "\")
End Function

dbPath = AddTailSlash(App.Path) & "database.mdb"


[SSecurity]

Я обычно связку Instr с Replace чтобы "\\" на "\" заменить

Спёрто из стандартного VB-инсталлера (Setup1). Только имя другое.

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

Function AddTailSlash(strPath As String) As String
    AddTailSlash = strPath & IIf(Right$(strPath, 1) = "\", "", "\")
End Function

dbPath = AddTailSlash(App.Path) & "database.mdb"


дело в том, что у меня обычно пути бывают составные пути, и "z:\temp\box1\\serv1\jpgs\\resized\" - нередкость

[iGrok]

...дело в том, что у меня обычно пути бывают составные пути, и "z:\temp\box1\\serv1\jpgs\\resized\" - нередкость

Ну так кто мешает вызывать AddTailSlash в момент присоединения следующей части пути? =)

[arthur2]

На моём компе работает нормально (стоит Win2000), а на компе с XP говорит, что "Couldn't find file database.mdb".

Может, в пути есть уникодные знаки? Попробуй msgbox App.Path - есть вопросики в строке?

[SSecurity]

...дело в том, что у меня обычно пути бывают составные пути, и "z:\temp\box1\\serv1\jpgs\\resized\" - нередкость

Ну так кто мешает вызывать AddTailSlash в момент присоединения следующей части пути? =)

если только ты уверен в чистоте ввода это части ... если ты на 100% знаешь что там не будет "\" присоединяй сколько хочешь ... а юзеров заставлять воодить множество путей по определенным правилам куда менее интереснее чем просто перед использованием путь откорректировать

[iGrok]

... а юзеров заставлять воодить множество путей по определенным правилам куда менее интереснее чем просто перед использованием путь откорректировать

А юзеры не должны вручную путь вводить. Юзерам надо диалоги показывать. =)
А то ошибаться все горазды. Могут и покруче ошибиться, чем просто двойной слеш вляпать. =)

А вообще можно точно так же при присоединении срубать ведущий слеш с присоединяемой части пути..

Хотя в этом случае да, проще уже реально на готовом пути делать Replace..

[SSecurity]

... а юзеров заставлять воодить множество путей по определенным правилам куда менее интереснее чем просто перед использованием путь откорректировать

А юзеры не должны вручную путь вводить. Юзерам надо диалоги показывать. =)
А то ошибаться все горазды. Могут и покруче ошибиться, чем просто двойной слеш вляпать. =)

А вообще можно точно так же при присоединении срубать ведущий слеш с присоединяемой части пути..

Хотя в этом случае да, проще уже реально на готовом пути делать Replace..

дело в том ... что папка может быть как со слешем в конце так и без .... а относительные пути точно также могут иметь слеши в начале ... поэтому проще все собрать и зареплейсить. А вообще если для себя, то всегда пути обычно "павильные" ... но функция не плохая в большинстве случаев будет достаточна

Молодец:)

[iGrok]

Молодец:)

Я ж говорю, авотрство не моё. Она взята из Setup1 от стандартного инсталлятора VB6.

[SSecurity]

Молодец:)

Я ж говорю, авотрство не моё. Она взята из Setup1 от стандартного инсталлятора VB6.

От того что ты показал чужую функцию из инсталятора ... ты "не молодцом" не стал:)))))))))))))))))))))))))))))