Return Path 2

[Tom123456]

Is that a function that returns the path to the dirctory that I run my access application in?



- Tom

 

[scriverb]

Try this:
Dim x As String
x = CurrentDb.Name

Variable x will now have the path of the current database. You see the .Name property of any database has the current path location of that database.

Bob Scriver

 

[danvlas]

...or, ADO version:

x = CurrentProject.FullName

Then you can search for the last "\" in the string:

For i = Len(x) to 1 Step - 1
If Mid(x,i,1) = "\" Then
JutPath = Left(x, i)
Exit For
End If
Next


Good luck



Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html

 

[Tom123456]

And if I want to remove the database name in the path?

- Tom

 

[danvlas]

Use the JustPath variable as above




Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html

 

[Tom123456]

I have tried that, it gives an empty string.

- Tom

 

[Tom123456]

ooupps sorry, my fault. Thanks it works real great!!

- Tom