Как узнать путь к текущей базе?

[0xy]

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

[GSerg]

Если ты её открыл, ты знаешь, где она.

[rok]

Сервис-параметры-общие-рабочий каталог
Если все удалить из строки то напишется знач.по умолч:Диск\моидок

[0xy]

Если ты её открыл, ты знаешь, где она.

Классный прикол
Я то знаю, а вот Open почему-то этого не знает (ему обычно "Мои документы" мерещатся)
Еще раз: вопрос в том, как сохранить файл (програмно, естесстно ) в той же папке, где лежит база?

[GSerg]

Человек хочет репрессий
Ладно, нам-то чё

Почему не указал, какая база? Почему не указал, откуда и чем она открывается?

[Genyaa]

Допустим, gggg - это открытый объект (это может быть любой открытый объект - база, файл Excel, документ word и др.), и все сохраняемые другие файлы (например MyFile) нужно сохранять в тот же каталог, где файл этого объекта находится на диске.

Тогда путь куда нужно сохранять файлы можно получить по свойству .Path

MyFile.SaveAs FileName:=gggg.Path & "\" & "Новое имя моего файла.txt"

Для Access свойство Path для текущей открытой базы я не нашел (видимо потому, что там совсем другой подход к объектной модели вообще), но можно сделать так:

MyFile.SaveAs FileName:=Left(Application.CurrentDb.Name, InStrRev(Application.CurrentDb.Name, "\"))&"Новое имя моего файла.txt"

[0xy]

Genyaa
Спасибо! То, что нужно

ps
Вот только на InStrRev Access 97 ругается. Есть ли альтернатива (или самому писать?)

[0xy]

Уже написал

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

Public Function DBPatch$()
Dim i&
DBPatch = Application.CurrentDb.Name
For i = Len(DBPatch) To 1 Step -1
    If Mid(DBPatch, i, 1) = "\" Then Exit For
Next i
DBPatch = Left(DBPatch, i)
End Function

[Krasnaja Shapka]

вместо цикла можно воспользоваться оператором InStr(,"/",DBPatch)
или его тоже нет?

[tyomitch]

Shapka, нельзя: 0xy ищет с конца, а InStr с начала.

[Nicky]

Уже написал

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

Public Function DBPatch$()
Dim i&
DBPatch = Application.CurrentDb.Name
For i = Len(DBPatch) To 1 Step -1
    If Mid(DBPatch, i, 1) = "" Then Exit For
Next i
DBPatch = Left(DBPatch, i)
End Function

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

CreateObject("Scripting.FileSystemObject").GetFile(Application.CurrentDb.Name).parentfolder.Path

[KL]

Вот только на InStrRev Access 97 ругается. Есть ли альтернатива (или самому писать?)

см. здесь:

http://support.microsoft.com/default.as ... s%3b188007

можно вставлять эти функции например в таком виде:

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

#If Not VBA6 Then
      Public Function StrReverse(ByVal sIn As String) As String
          Dim nC As Integer, sOut As String
          For nC = Len(sIn) To 1 Step -1
          sOut = sOut & Mid(sIn, nC, 1)
          Next
          StrReverse = sOut
      End Function
#End If

[KL]

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

CreateObject("Scripting.FileSystemObject").GetFile(Application.CurrentDb.Name).parentfolder.Path

или так:

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

CurrentProject.Path

[Nicky]

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

CreateObject("Scripting.FileSystemObject").GetFile(Application.CurrentDb.Name).parentfolder.Path

или так:

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

CurrentProject.Path

Краснею

[0xy]

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

CurrentProject.Path

Не катит (Access 97)