ярлык

[-=alp=-]

Как узнать на какой объект ссылается ярлык
_______________________________
Windows как жена с ней плоха, а без неё ещё хуже.

[-=alp=-]

я уже знаю ответ на свой вопрос

[Trojan Lord]

не поделишься ?

[-=alp=-]

tempn2 = FreeFile
i = 0
slovo = dir1.SelectedFolder
On Error GoTo 5
‘ открываю ярлык target.lnk
Open dir1.SelectedFolder & "\target.lnk" For Input As #tempn2
Close
tempn2 = FreeFile
Open dir1.SelectedFolder & "\target.lnk" For Binary As #tempn2
slovo = String(LOF(tempn2), " ")
Get #tempn2, , slovo
Close
tempn2 = Len(slovo) - 1
i = tempn2
Do
i = i – 1
‘ в нутрии него ищю Индивидуальное значение
‘ у меня это сетевой ярлык и его путь начинаться с \\
If Mid$(slovo, i, 2) = "\\" Then
tempn2 = (tempn2 - i) + 2
slovo = Mid$(slovo, i, tempn2)
GoTo 5
End If
Loop
5
Print slovo
_____________________________________________
Коллекционер информации.

[Trojan Lord]

tx