'----------------------------------------------------------------
Sub SpecialFolders()
'----------------------------------------------------------------
Dim oWSH As Object
Const wsh_SPECIAL_FOLDER_DESKTOP As Long = 4

Set oWSH = CreateObject("WScript.Shell")

MsgBox oWSH.SpecialFolders(wsh_SPECIAL_FOLDER_DESKTOP)

Set oWSH = Nothing

End Sub



--

HTH

RP
(remove nothere from the email address if mailing direct)


"Raman325" wrote in
message ...

Hi,

Another question for you guys, sorry. How can I get the filepath to the
desktop of the user currently logged into the computer? This mactro will
be running on many different computers so the user will change as will
the path to the desktop. Any help would be appreciated, thanks in
advance.

-Raman


--
Raman325
------------------------------------------------------------------------
Raman325's Profile:
http://www.excelforum.com/member.php...o&userid=24748
View this thread: http://www.excelforum.com/showthread...hreadid=395161