[AccessD] [dba-VB] Creating a desktop shortcut via Visual Basic 6.0

Hi Paul,

I found this code on the inet: (it needs a reference to the filesystem
object (Windows scripting))

Set wShortcut = wShell.CreateShortcut(wShell.SpecialFolders.Item(0) & "\" &
App.Title & ".lnk")
wShortcut.TargetPath = App.Path & "\" & App.EXEName & ".exe"
wShortcut.Save


Regards,
Eric Starkenburg


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of
paul.hartland at fsmail.net
Sent: donderdag 4 december 2003 10:03
To: dba-vb
Cc: accessd
Subject: [AccessD] [dba-VB] Creating a desktop shortcut via Visual Basic
6.0


To all,

Does anyone know a way how to create a shortcut on a desktop using VB6, I
have an application that creates various Excel spreadsheets and puts them
into a specified directory.  What I then want to do is give the user an
option of creating a shortcut to this Excel sheet onto their desktop.

Sample code etc will be greatly appreciated.

Thanks in advance for all your help on this.

Paul Hartland
Database Designer/Developer.
Freeserve AnyTime - HALF PRICE for the first 3 months - Save £7.50 a month
www.freeserve.com/anytime
_______________________________________________
dba-VB mailing list
dba-VB at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/dba-vb
http://www.databaseadvisors.com

_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 2-12-2003
Tested on: 4-12-2003 13:00:53
avast! is copyright (c) 2000-2003 ALWIL Software.
http://www.avast.com