How to get current user?

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.

Hi,

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

Al

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

getspecialfolder API call can get the actual desktop folder

Code:

---

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

---

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. :(

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

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