Re: [MS_AccessPros] How the get the path.

 

Dear Graham,

Ohhhh My God, you give me the exact solution. Thanks a lot.

Best Regards,

Kevin

发自 WPS邮箱客戶端

在 "graham@mandeno.com [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com>，2019年3月21日 07:46写道：

 

Hi Kevin

InStrRev() searches back from the end of a string until it finds a given character (or string) and it returns the position of that character.  You can use this to find the last backslash in the path, and then use the Left() function to cut off the end of the path, including the backslash you have found.

It pays to use Len(Path) - 1 to start your search one character back from the end, just in case the last character is already a backslash.

Now you should understand how this function works:

Public Function ParentPath(ByVal Path As String) As String

  ParentPath = Left(Path, InStrRev(Path, "\", Len(Path) - 1) - 1)

End Function

Best wishes,

Graham Mandeno [Access MVP 1996-2016]

---In MS_Access_Professionals@yahoogroups.com, <qingqinga@...> wrote :

Dear Duane,

Thanks a lot. Yes. That's exactly what I want. I have tried instrRew（）, but I didn't get the result I  want. I only know a little about it. I'll try again and again to get the expected result.

Best Result,

Kevin

发自 WPS邮箱客戶端

在 "Duane Hookom duanehookom@... [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com>，2019年3月21日 01:05写道：

 

Hi Kevin,

So you want the current project path without rightmost folder name?

If this is the case you can use InstrRev() function

https://docs.microsoft.com/en-us/previous-versions/visualstudio/visual-studio-2008/t2ekk41a(v=vs.90)

Duane

---

From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of qingqinga qingqinga@... [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Wednesday, March 20, 2019 11:15 AM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] How the get the path.

 

Dear Domenico,

Thanks for your reply. My point is to only get the path without the folder where the current project locates. Desktop is not the case.

Best Regards,

Kevin

发自 WPS邮箱客戶端

在 "Domenico Cozzolino domcoz@... [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com>，2019年3月20日 15:31写道：

 

path = Environ("USERPROFILE") & "\Desktop"

Ciao Domenico

Il giorno mer 20 mar 2019 alle ore 07:24 crystal 8 strive4peace2008@... [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> ha scritto:

 

hi Kevin,

'~~~~~~~~~~~~~~~~~~~
Function GetDesktopPath() As String
'170423 crystal
   Dim oShell As Object
   Set oShell = CreateObject("WScript.Shell")
   GetDesktopPath = oShell.SpecialFolders("Desktop")
   Set oShell = Nothing
End Function
'~~~~~~~~~~~~~~~~~~~

have an awesome day,
crystal

free code you can use in your projects
https://msaccessgurus.com/code.htm

On 3/20/2019 12:02 AM, Kevin qingqinga@...
[MS_Access_Professionals] wrote:
> Dear All,
>
> With CurrentProject.path, I got this: C:\Users\mrzha\Desktop\FileFolder,
> My question is how to get :"C:\Users\mrzha\Desktop" ? Thanks in advance.
>
> Best Regards,
> Kevin
>
>
>
> ------------------------------------
> Posted by: Kevin <qingqinga@...>
> ------------------------------------
>
>
> ------------------------------------
>
> Yahoo Groups Links
>
>
>

__._,_.___

---

Posted by: qingqinga <qingqinga@yahoo.com>

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (9)

---

Have you tried the highest rated email app?

With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

---

Visit Your Group

• Privacy • Unsubscribe • Terms of Use

SPONSORED LINKS

.

__,_._,___