get a file from document and settings [resolved]

[davyquyo]

i'm a flash designer and with this flash i can create some sort of cookie
this cookie wil be stored in documents and settings

i now exactly were the cookie is been stored the only problem is how can i receive it because
i have to pas a map that has the username from the person thats online
for example with me it is

c:/documents and settings/davyquyo/ .....

is there a way to receive that some sort of cookie in this map
because when i'm going to use this litle program on other pc's this name of this map won't be the same

i hope you understand me

[baja_yu]

You need this done in VB?

[davyquyo]

oops sorry i didn't say this
wel i creating a program with visual basic 6.0
and this program wil be running local offcourse

[baja_yu]

If I understand correctly, by map, you mean Folder (directory), correct? And you want to get the users profile folder path?

Like in my case it is C:\Documents and Settings\baja

[davyquyo]

yes indeed,
this is the loaction i need to get

C:\Documents and Settings\davyquyo\Application Data\Macromedia\


the only problem is tis one map

i hope you van help me

[baja_yu]

in that case you can use API to get the username of the logged in user:

Option Explicit
 
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
 
Private Sub Form_Load()
    Dim strUserName As String
 
    'Create a buffer
    strUserName = String(100, Chr$(0))
    'Get the username
    GetUserName strUserName, 100
    'strip the rest of the buffer
    strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
 
    'Show the username
    MsgBox strUserName
 
    MsgBox "C:\Documents and Settings\" & strUserName
End Sub

[baja_yu]

You replied before I posted... in that case you need to extract the path from this registry value:

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders,AppData

and to that add: & "\Macromedia"

To get the registry value data search this forum, it has been covered many times.

[davyquyo]

ok thanks for the help i wil need it
this should work

[baja_yu]

No problem

[BuggyProgrammer]

I once installed windows without formatting, but choosing the same user name. Before i reinstalled it was like this:

John
Bob
Administrator

after, it became:

John.WINDOWS
Bob.WINDOWS
Administrator.WINDOWS
John
Bob
Administrator

The last three were left over from the install. The ones with the ".WINDOWS" was the real one. I don't know if GetUserName will compensate for that.

[RobDog888]

This link to one of my older threads will get the users Application Data
folder path in the Local Settings directory.

Application Data Path

[davyquyo]

ok i try't this

Option Explicit

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Form_Load()
Dim strUserName As String

'Create a buffer
strUserName = String(100, Chr$(0))
'Get the username
GetUserName strUserName, 100
'strip the rest of the buffer
strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)

'Show the username
MsgBox strUserName

MsgBox "C:\Documents and Settings\" & strUserName
End Sub

this says the right name
davy

but the map is davy.davy-quyo


and then i try't this

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders ,AppData

but he givs error with the red part

are they other ways to get the right path ???

[davyquyo]

i found this

Private Sub Form_Load()
MsgBox Environ(8)
End Sub

this shows perfectly the path i need
except for the homepath variable

how do i remove the first 9 letters

[davyquyo]

i found it

i used this

Private Sub Form_Load()
Dim test2
test2 = Replace(Environ(8), "HOMEPATH=", "")
MsgBox test2
 
End Sub

this work

[RobDog888]

No. Its usually bad programming to depend upon something that
can be changed or deleted like enviroment variables.

[davyquyo]

i lookd to the thing you posted bt i can't figure how it works how ill you do it then

[RobDog888]

I made a working example of how to get the Application data
path under the users profile. Just add to the path to build
anything else you need.

[davyquyo]

this is great tahnks a lot really

sorry for the trouble

[RobDog888]

No trouble at all. Just hard code to get your path using the CSIDL_APPDATA
and add the \Macromedia" folder to the results.

[davyquyo]

some results are empty

but i think evrything i need is fine
tank you very much

[RobDog888]

Some are empty because they are virtual folders like the Control Panel, etc.

Don't forget to resolve this thread if all has been answered.

Later.