Shortcuts?

[Zaphod64831]

Anyone know how to create a shortcut with VB?

[QWERTY]

'Compatibility: VB 5,VB 4/32

'Task: Create a shortcut in Windows on the desktop and on the start menu

'Declarations
'NOTE: In Visual Basic 5.0, change Stkit432.dll in the following
'statement to Vb5stkit.dll. Stkit432.dll is for Visual Basic 4.0

Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal
lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal
lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long


'Code:
Dim lReturn As Long

'Add to Desktop
lReturn = fCreateShellLink("..\..\Desktop", _
"Shortcut to Calculator", "c:\windows\calc.exe", "")

'Add to Program Menu Group
lReturn = fCreateShellLink("", "Shortcut to Calculator", _
"c:\windows\calc.exe", "")

'Add to Startup Group
'Note that on Windows NT, the shortcut will not actually appear
'in the Startup group until your next reboot.
lReturn = fCreateShellLink("\Startup", "Shortcut to Calculator", _
"c:\windows\calc.exe", "")

[Zaphod64831]

Hmm...
Now if I can just figure out how to do that with a DUN.
For some stupid reason windows won't give DUN's a filepath.

[Zaphod64831]

Nevermind, I found a way around it
I'll just make a copy of the shortcut I have on my comp, the DUN will have the same name and it will all work out fine.