How to get current user?

[coolwater]

I would like to thank robdog888 for the code sample posted at http://www.vbforums.com/showthread.p...37#post2445837. Perfect for my current project. My question is related to the said link. I would just like to add a question. How can I save the excel file directly to the Desktop? Is there a way not to hard code the save to file path: example "D:\Test.xls". My application will reside in a Windows 2003 Company Domain environment, is there a way to export the excel file and save directly to the desktop? How can i get the user profile? Thanks.

[BoltonAl]

Hi,

Item 39 in this thread http://www.vbforums.com/showthread.php?t=342035
Tells you how to get the current user

Al

[westconn1]

environ("userprofile") will return the path to the current user's folder system

getspecialfolder API call can get the actual desktop folder

[Hack]

Option Explicit

Private Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias _
"SHGetSpecialFolderPathA" _
(ByVal hwnd As Long, _
ByVal pszPath As String, _
ByVal csidl As Long, _
ByVal fCreate As Long) As Long

Private Const CSIDL_DESKTOP = &H0
Private Const MAX_PATH = 260

Private Function GetDesktopFolderPath() As String
    Dim sDesktopPath As String
    sDesktopPath = Space$(MAX_PATH)
    SHGetSpecialFolderPath Me.hwnd, sDesktopPath, CSIDL_DESKTOP, False
    GetDesktopFolderPath = Left$(sDesktopPath, InStr(sDesktopPath, vbNullChar) - 1)
    
End Function

Private Sub Command1_Click()
Dim strDesktop As String
strDesktop = GetDesktopFolderPath
MsgBox strDesktop
End Sub

[si_the_geek]

To find the location of special folders (like the Desktop etc), do not even think about the username - as it doesn't actually need to be related to the names of the folders (there is also the issue that the parent folders can be called something else, and/or be on a different drive).

Instead you should use the API's designed for finding paths, a good example of which can be seen here.


edit: it seems I was slow, and was last in the rush.

[RobDog888]

We do have a FAQ item on it (username):
http://vbforums.com/showthread.php?t=357723

[coolwater]

wow lots of replies. thanks. i will try them. I will post if its resolved. thanks.