how to get folder path

[Jon]

Greeting,

I have a code to get the full path of file, but what I need is only the
folder name. is there any way to get folder name only??

Thank you.

 

[Tom Wickerath]

Hi Jon,

Try this:

Mid$(CurrentProject.Path,InStrRev(CurrentProject.Path,"\")+1)


Tom Wickerath
Microsoft Access MVP
http://www.accessmvp.com/TWickerath/
http://www.access.qbuilt.com/html/expert_contributors.html
__________________________________________

 

[Jon]

Thank you Tom

would you please provide full code?

 

[Jon]

By the way,

I am using the following code:
im fileName As String

Dim arrFileName() As String

Dim result As Integer

With Application.FileDialog(msoFileDialogFilePicker)


.Title = "Select Employee Picture"

.Filters.Add "All Files", "*.*"

.Filters.Add "JPEGs", "*.jpg"

.Filters.Add "Bitmaps", "*.bmp"

.FilterIndex = 2

.AllowMultiSelect = False

.InitialFileName = CurrentProject.Path

result = .Show

If (result <> 0) Then

arrFileName() = Split(.SelectedItems.Item(1), "\", -1)

fileName = "\" + arrFileName(UBound(arrFileName) - 1) + "\" +
arrFileName(UBound(arrFileName))

Me![photo].Visible = True

Me![photo].SetFocus

Me![photo].Text = fileName
End If

End With

 

[Douglas J. Steele]

Realistically, he did provide "full code".

Let's try it again, though. Let's assume your full path to the file is
stored in variable strFullPath and you want the folder name put into
strFolderName.

strFolderName = Mid$(strFullPath,InStrRev(strFullPath,"\")+1)

Regarding your other post in this thread (where you showed your code), do
yourself a huge favour, and stop using the FileDialog control. Using the API
is far more reliable. You can get a complete sample at
http://www.mvps.org/access/api/api0001.htm at "The Access Web"

 

[Tom Wickerath]

Jon,

To add some to Doug's reply, I use the API method myself. I have a
work-in-progress demo database for photos that you are welcome to download.
It is no where near finished, but it does include the ability to select a
photo and store the path in a table.

http://www.accessmvp.com/TWickerath/downloads/ImageDemo.zip


Tom Wickerath
Microsoft Access MVP
http://www.accessmvp.com/TWickerath/
http://www.access.qbuilt.com/html/expert_contributors.html
__________________________________________

 

[Tom Wickerath]

Hi Jon,

Excuse me--I was incorrect when I stated that my sample uses the API method.
It is currently using the File Dialog method. I guess I had not gotten around
to changing this over yet to the API-based common file dialog method. That is
on the list of things-to-do, as time permits, and I thought I had already
done this. Apparently not.

I do use the API method in all new projects. The frmEmployees form in my
photo database sample was imported from the copy of Northwind that ships with
Access 2003. This already included the FileDialog file picking code.


Tom Wickerath
Microsoft Access MVP
http://www.accessmvp.com/TWickerath/
http://www.access.qbuilt.com/html/expert_contributors.html
__________________________________________