Accessing the Desktop

'----------------------------------------------------------------
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" <[email protected]> wrote in
message news:[email protected]...
>
> 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
>

Thanks for the reply. I'll try it out, thanks for your help!