Office: Dateipfad zum Backend anzeigen lassen

Hallo, ich habe schon im internet gesucht aber noch nichts brauchbares gefunden.
Ist es möglich das ich mir den Pfad zu meinem Backend anzeigen lasse.


edit: Das hier habe ich gefunden:

Dim strPfad As String
Dim strPfadTmp As Variant
strPfad = CurrentDb.TableDefs("tbl_MEINE").Connect
strPfadTmp = Split(strPfad, "=", -1, 1)
strPfadTmp = Split(strPfadTmp(1), "\", -1, 1)
strPfad = ""
For i = 0 To UBound(strPfadTmp) - 1
strPfad = strPfad & strPfadTmp(i) & "\"
Next
MsgBox (strPfad)






das ("tbl_Meine") ist das eine belibige Tabelle im Backend?

 

Ich hab's nicht ausprobiert, aber so nach kurzem Überfliegen des Codes würde ich sagen: Ja.

Da wird der Verbindungs-String der verbundenen Tabelle geholt und durch die Split() Funktion der eigentliche Pfad von den anderen Informationen abgetrennt.

Gruß, Michael

 

Warum meckert er nach der Variablen i in der Zeile:

For i = 0 To UBound(strPfadTmp) - 1

als was muss ich i deklerieren?

 

Weil irgendwo weiter oben ein "option explicit" steht und i nicht per DIM deklariert wurde.

Schleifen-Variablen sind eigentlich^ immer ganzzahlig, von daher wirst Du hier mit

Code:

dim i as long

weiter kommen.

Gruß, Michael



^ eigentlich, aber es gibt auch Konstrukte mit:
for i = 2 to 5 step 0.25

 

danke !
Ist es auch möglich sich den kompletten Pfad anzeigen zu lassen also auch die *.accdb


möchte das ganz gerne in ein Textfeld anzeigen lassen.