ник: duh_si
Решил я свою задачу
Dim WshShell As WshShell
Set WshShell = CreateObject("WScript.Shell")
Set WshURLShortcut = WshShell.CreateShortcut("D:\Папка\01.lnk")
WshURLShortcut.TargetPath = "D:\Папка"
WshURLShortcut.Save
Set WshShell = Nothing
Set WshURLShortcut = Nothing
|
Таким образом делается ярлык(ссылка) на папку в другой папке