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@yahoo.com
[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.com>
> ------------------------------------
>
>
> ------------------------------------
>
> Yahoo Groups Links
>
>
>
Posted by: crystal 8 <strive4peace2008@yahoo.com>
Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (2) |
Tidak ada komentar:
Posting Komentar