Help with file names and paths

A

adambedford

Registered User.

Local time

Today, 18:02

Joined

Apr 15, 2009

Messages

42

• Apr 22, 2009

• #1

I have this code snippet that extracts on the file name from a string. It does this by removing everything left of the first "\" (working from right to left).

Code:

    Dim I As Integer
    For I = Len(FullName) To 1 Step -1
        If Mid(FullName, I, 1) = "\" Then
            ExtractName = Right(FullName, Len(FullName) - I)
            Exit For
        End If
    Next

How would I change the code to only remove the CurrentProject.Path so I can store values containing backslashes.

The code is for a photo browse application and I need to be able to reference folders within the database folder.

Thanks, Adam

 

FoFa

Registered User.

Local time

Today, 11:02

Joined

Jan 29, 2003

Messages

3,653

• Apr 22, 2009

• #2

have you tried the split function?

 

A

adambedford

Registered User.

Local time

Today, 18:02

Joined

Apr 15, 2009

Messages

42

• Apr 22, 2009

• #3

how do i do that?

sorry, I'm new to all this!

 

J

jardiamj

Registered User.

Local time

Today, 09:02

Joined

Apr 15, 2009

Messages

59

• Apr 23, 2009

• #4

Hello Adam! I think I got what you want.
I don't know if its the best way to do it but, I built a function that gives you the path of the file relatively to the CurrentProject.Path.
I had the example of the DB you uploaded in other post, so I added a Module with that function to the DB and created a form with a textbox that runs the Function with a double click.
I hope it will help. Cheers!

 

Attachments

• PhotoBrowseDB.zip

  520.4 KB · Views: 206

DCrake

Remembered

Local time

Today, 17:02

Joined

Jun 8, 2005

Messages

8,623

• Apr 23, 2009

• #5

Adam, you are double posting, this will result in conflicting answers. Please refrain from doing this and stick to one post. Only create a new thread if it is a new question.

David

 

A

adambedford

Registered User.

Local time

Today, 18:02

Joined

Apr 15, 2009

Messages

42

• Apr 23, 2009

• #6

Hi jardiamj!,

Thank you once again for your help. One question...how would I get that code to work with my existing Case statements on the frmVillas? Also, would it be possible to quickly explain what the getRelPath Function is doing?

Thanks!