DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Userprofile

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Sep 2006

Posts: 23

Reputation: JohnKelly is an unknown quantity at this point

Solved Threads: 0

JohnKelly

Offline

Newbie Poster

Userprofile

Jan 14th, 2009

I have a VB6 app that uses the Environ("userprofile") command to determine the location of the My Documents folder for the currently logged in user.

This has been working fine for ages with no problems. One particular client has had the user directory redirected to a network location so that he can back up all the user data. The problem I face is the Environ("userprofile") still returns the local C Drive location for the user and not the mapped network location.

How can I determine where the real user profile has been mapped to ? Is it a registry entry that can be read ?

•

Join Date: Nov 2006

Posts: 848

Reputation: QVeen72 is on a distinguished road

Solved Threads: 120

QVeen72

Offline

Practically a Posting Shark

Re: Userprofile

Jan 14th, 2009

Hi,

Declare this API at the top :

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
Private Declare Function SHGetFolderPath Lib "shfolder.dll" _
   Alias "SHGetFolderPathA" _
  (ByVal hwndOwner As Long, _
   ByVal nFolder As Long, _
   ByVal hToken As Long, _
   ByVal dwReserved As Long, _
   ByVal lpszPath As String) As Long
Private Declare Function SHGetFolderPath Lib "shfolder.dll" _
   Alias "SHGetFolderPathA" _
  (ByVal hwndOwner As Long, _
   ByVal nFolder As Long, _
   ByVal hToken As Long, _
   ByVal dwReserved As Long, _
   ByVal lpszPath As String) As Long

to Get the path :

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
    Dim MyPath As String
    MyPath = Space(260)
    Call SHGetFolderPath(Me.hWnd, 0, -1, &HC, MyPath)
    MsgBox MyPath
    Dim MyPath As String
    MyPath = Space(260)
    Call SHGetFolderPath(Me.hWnd, 0, -1, &HC, MyPath)
    MsgBox MyPath

Regards
Veena

•

Join Date: Sep 2006

Posts: 23

Reputation: JohnKelly is an unknown quantity at this point

Solved Threads: 0

JohnKelly

Offline

Newbie Poster

Re: Userprofile

Jan 14th, 2009

QVeen72 thanks for the update but is SHGetFolderPath part of the Win32 API. I can't find any record of that call.

•

Join Date: Sep 2006

Posts: 23

Reputation: JohnKelly is an unknown quantity at this point

Solved Threads: 0

JohnKelly

Offline

Newbie Poster

Re: Userprofile

Jan 14th, 2009

QVeen72 I have got it working, many thanks for your help I am waiting to see if it reads the clients profile on their system. Thank you once again.

•

Join Date: Jun 2009

Posts: 2

Reputation: 1RealTruth is an unknown quantity at this point

Solved Threads: 0

1RealTruth 1RealTruth is offline

Offline

Newbie Poster

Re: Userprofile

Jun 7th, 2009

I've been trying to get the local dynamic user path to work but it doesn't seem to be.

John, what is your original code? Here is what I have but it isn't finding the file. I am using a checkbox and that feature is working but when I have it checked to use the path, it cannot find the file in that path (i.e. default.rdp). I have even tried strPath = Environ("%userprofile%\MyDocu~1") and strPath = Environ("%userprofile%\My Documents")

===> Code <===

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
strPath = Environ("%userprofile%" & "My Documents")
        If RDPConsole.Checked = True Then
            strRemoteConnect = ("mstsc /edit " & strPath & "default.rdp /v:") & IPBox1.Text
 
        Else
            strRemoteConnect = ("mstsc /v:") & IPBox1.Text
        End If
        Shell(strRemoteConnect, vbNormalNoFocus)
strPath = Environ("%userprofile%" & "My Documents")
        If RDPConsole.Checked = True Then
            strRemoteConnect = ("mstsc /edit " & strPath & "default.rdp /v:") & IPBox1.Text

        Else
            strRemoteConnect = ("mstsc /v:") & IPBox1.Text
        End If
        Shell(strRemoteConnect, vbNormalNoFocus)