Create a shortcut to a folder with VBA

's Computer Specifications

Excel XP & Win XP
I found some code in the site below that creates a desktop shortcut to the
active file. It works well. But what I want to do is place, on the
desktop, a shortcut to a folder, not to a file. Can anyone help me to
modify this code, or create new code to create a shortcut to a folder and
place the shortcut on the desktop? Thanks for your time. Otto

http://www.vba-programmer.com/Snippe..._Creation.html

's Computer Specifications

Dir you try changing

lsPath = Application.Path & "\" & Application.Name'

to

lsPath = "C:\Myfolder\MySubFolder"

--
Regards,
Tom Ogilvy

"Otto Moehrbach" wrote:

> Excel XP & Win XP
> I found some code in the site below that creates a desktop shortcut to the
> active file. It works well. But what I want to do is place, on the
> desktop, a shortcut to a folder, not to a file. Can anyone help me to
> modify this code, or create new code to create a shortcut to a folder and
> place the shortcut on the desktop? Thanks for your time. Otto
>
> http://www.vba-programmer.com/Snippe..._Creation.html
>
>
>

's Computer Specifications

Thanks Tom. I'll try it in the morning. Otto
"Tom Ogilvy" <(E-Mail Removed)> wrote in message
news:AE9AF5AF-32F1-4752-8B4D-(E-Mail Removed)...
> Dir you try changing
>
> lsPath = Application.Path & "\" & Application.Name'
>
> to
>
> lsPath = "C:\Myfolder\MySubFolder"
>
> --
> Regards,
> Tom Ogilvy
>
>
> "Otto Moehrbach" wrote:
>
>> Excel XP & Win XP
>> I found some code in the site below that creates a desktop shortcut to
>> the
>> active file. It works well. But what I want to do is place, on the
>> desktop, a shortcut to a folder, not to a file. Can anyone help me to
>> modify this code, or create new code to create a shortcut to a folder and
>> place the shortcut on the desktop? Thanks for your time. Otto
>>
>> http://www.vba-programmer.com/Snippe..._Creation.html
>>
>>
>>

's Computer Specifications

That worked great. Thanks again. Otto
"Tom Ogilvy" <(E-Mail Removed)> wrote in message
news:AE9AF5AF-32F1-4752-8B4D-(E-Mail Removed)...
> Dir you try changing
>
> lsPath = Application.Path & "\" & Application.Name'
>
> to
>
> lsPath = "C:\Myfolder\MySubFolder"
>
> --
> Regards,
> Tom Ogilvy
>
>
> "Otto Moehrbach" wrote:
>
>> Excel XP & Win XP
>> I found some code in the site below that creates a desktop shortcut to
>> the
>> active file. It works well. But what I want to do is place, on the
>> desktop, a shortcut to a folder, not to a file. Can anyone help me to
>> modify this code, or create new code to create a shortcut to a folder and
>> place the shortcut on the desktop? Thanks for your time. Otto
>>
>> http://www.vba-programmer.com/Snippe..._Creation.html
>>
>>
>>

Thread Tools
Show Printable Version Email this Page
Rate This Thread
Rate This Thread:

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Create shortcut from Outlook Folder to External Folder	Mo	Microsoft Outlook Contacts	1	16th Jan 2008 03:25 AM
Re: shortcut to create new folder	Andre Da Costa[ActiveWin]	Windows Vista General Discussion	0	28th Oct 2007 12:59 AM
Solution to: Can't create file:.xls. Right click folder you want to create the file in and then click properties on the shortcut menu to check your permissions on this folder	Ky_fanatic	Microsoft Outlook Discussion	1	8th Dec 2006 06:15 PM
When I try to open/save .rtf attachment I get the messages ?Can't create file. Right-click the folder you want to create item in and then click on the shortcut menu to check your permissions for the folder.?	Nie Geweune via AdminLife	Microsoft Outlook Installation	2	28th Jun 2006 05:07 PM
Re: Shortcut key to create new folder	dev	Windows XP General	0	19th Jul 2003 05:16 PM