![]() |
How to path to user's desktop
Is there a function that will return the User's Name or the path to their desktop folder? -- 1scant ------------------------------------------------------------------------ 1scant's Profile: http://www.excelforum.com/member.php...o&userid=31635 View this thread: http://www.excelforum.com/showthread...hreadid=552615 |
How to path to user's desktop
The desktop is one of the special folders:
http://support.microsoft.com/default...b;en-us;252652 HOWTO: Use the SHGetFolderPath Function from Visual Basic http://msdn.microsoft.com/library/de...nums/csidl.asp or you can use the windows scripting host: Create a link to the Windows Scripting Host Runtime libary C:\WINDOWS\SYSTEM\WSHOM.OCX Name is: IWshRuntimeLibrary In Tools=References in the VBE it will be listed as: Windows Scripting Host Object Model or something similar. You can use this to get your desktop location: Sub Tester15() Dim wsh As New IWshShell_Class Dim DesktopPath As String DesktopPath = wsh.SpecialFolders.Item("Desktop") msgbox DeskTopPath end Sub or without setting the reference Sub Tester16() Dim wsh As Object Dim DesktopPath As String set wsh = CreateObject("wscript.shell") DesktopPath = wsh.SpecialFolders.Item("Desktop") msgbox DeskTopPath end Sub -- Regards, Tom Ogilvy "1scant" wrote: Is there a function that will return the User's Name or the path to their desktop folder? -- 1scant ------------------------------------------------------------------------ 1scant's Profile: http://www.excelforum.com/member.php...o&userid=31635 View this thread: http://www.excelforum.com/showthread...hreadid=552615 |
How to path to user's desktop
:) Beautiful! And I got your reply just at the right time. -- 1scant ------------------------------------------------------------------------ 1scant's Profile: http://www.excelforum.com/member.php...o&userid=31635 View this thread: http://www.excelforum.com/showthread...hreadid=552615 |
All times are GMT +1. The time now is 07:32 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com