link to the desktops

[peljo]

Can i create a link by code to the destops of different computers having a path in the main computer for example "C:\ Mansions \ dorns.mdb

 

[Remou]

Do you mean:

Sub CreateShortcut()
'Modified from:
'The Create Shortcut command truncates the source path folder names to eight characters
'[URL unfurl="true"]http://support.microsoft.com/kb/263324#appliesto[/URL]

Set WshShell = CreateObject("WScript.Shell")
Dim ret
'subst a drive to make the mapping work
ret = WshShell.Run("cmd /c subst j: c:\", 0, True)
Set oShellLink = WshShell.CreateShortcut("d:\" & "\Long filename Shortcut .lnk")
oShellLink.TargetPath = "j:\my long directory\myapplication.exe"
oShellLink.WindowStyle = 1
'Icon, if required
oShellLink.IconLocation = "C:\Program Files\Microsoft Office\Office\MSAccess.exe, 0"
oShellLink.Hotkey = "CTRL+SHIFT+F"
oShellLink.Description = "Long Filename Shortcut"
'This will overwrite the existing Icon
oShellLink.Save
'remove the subst
ret = WshShell.Run("cmd /c subst j: /d", 0, True)

End Sub

 

[GingerR]

Your "main computer" must have an ID on your network (i.e. in my company, it's E122900) and have the folder in question "shared".

Then the file path in the shortcut would look like this:

\\E122990\Mansions\dorns.mdb

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244. Basics at

http://r937.com/relational.html