Як створити ярлик папки, який в провіднику буде вести себе також як папка, на яку він посилається.
1. Створіть папку з будь-яким ім'ям, саме вона стане згодом ярликом.
і збережіть під ім'ям desktop.ini у створеній папці.
3. Створіть у цій папці ярлик target.lnk, він повинен посилатися на папку, на яку буде посилатися створюваний ярлик.
4. Встановіть у файлу desktop.ini атрибути Прихований і Системний (у властивостях файлу), а у папки-ярлика - Тільки читання. Найпростіше це зробити за допомогою Far (Ctrl + A).
Для простоти створення таких ярликів привожу невеликий скрипт, що дозволяє повністю автоматизувати процес:
Dim Args, WSHShell, fso, f, TL
Set Args = WScript.Arguments
Set WSHShell = WScript.CreateObject ( "WScript.Shell")
Set fso = WScript.CreateObject ( "Scripting.FileSystemObject")
Set f = fso.GetFolder (Args (0))
f.Attributes = f.Attributes Or 1
'Створюємо файл Desktop.ini в каталозі-посиланню
Set f = fso.OpenTextFile (Args (0) + "\ Desktop.ini", 2, True)
f.Write "[.ShellClassInfo]" + vbCrLf
f.Write "CLSID2 =" + vbCrLf
f.Write "Flags = 2" + vbCrLf
f.Close
'Задаємо йому атрибути
Set f = fso.GetFile (Args (0) + "\ desktop.ini")
f.Attributes = f.Attributes Or 2
f.Attributes = f.Attributes Or 4
'Створюємо ярлик
Set TL = WSHShell.CreateShortcut (Args (0) + "\ Target.lnk")
TL.TargetPath = Args (1)
'Задаємо зображення іконки. В даному випадку буде
'Використано зображення з номером 0 з файлу Блокнота
TL.IconLocation = "% windir% \ notepad.exe, 0"
TL.Save
Скрипт написаний на VBScript (розширення у файлу повинна бути .vbs). Запускати його треба з параметрами: перший параметр - шлях до папки-ярлику, другий параметр - шлях до папки, на яку створюється ярлик. Про всяк випадок попереджаю, що шлях, який містить один або кілька пробілів, потрібно взяти в лапки.
читати ще по темі