Pfad einer geöffneten DB anzeigen

[Gerd G.]

Hallo Leute,

wie kann ich mir mit VBA in einer 97er DB den aktuellen Pfad der von mir geöffneten Datenbank anzeigen lassen?

Herzlichen Dank für eure Hilfe

Gerd

[Köbi]

Grüezi Gerd

Pfad und Name der Db:
CurrentDb.Name

nur Pfad:
Left(CurrentDb.Name,Len(CurrentDb.Name)-Len(Dir(CurrentDb.Name)))

nur Name:
Dir(CurrentDb.Name)

[TommyK]

Hallo Gerd,

mit folgender Funktion:

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre>
<span class="TOKEN">Function</span> aktVerz() <span class="TOKEN">As</span> <span class="TOKEN">String</span> <span class="REM">' bestimmt Datenbank-Verzeichnis</span>
<span class="TOKEN">Dim</span> db <span class="TOKEN">As</span> <span class="TOKEN">Database</span>
<span class="TOKEN">Dim</span> verz$, i%, Z$
<span class="TOKEN">Set</span> db = CurrentDb
verz = db.Name
i = Len(verz)
<span class="TOKEN">Do</span> <span class="TOKEN">While</span> Z <> "\"
i = i - 1
Z = Mid$(verz, i, 1)
<span class="TOKEN">Loop</span>
aktVerz = Left$(verz, i)
<span class="TOKEN">End</span> <span class="TOKEN">Function</span></pre></div>

Gruss Tommy

[Schnobi]

Super! Ich hab mir da ein abgekotzt mit left und right, und ihr packt da in eine so kurze Version! Ich danke euch! :top: :p :idee: