Как узнать на какой объект ссылается ярлык
_______________________________
Windows как жена с ней плоха, а без неё ещё хуже.
ярлык
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 5
• Страница 1 из 1
- -=alp=-
- Продвинутый пользователь
-
- Сообщения: 147
- Зарегистрирован: 08.03.2003 (Сб) 19:20
-=alp=- » 06.04.2003 (Вс) 16:21
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
_____________________________________________
Коллекционер информации.
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
_____________________________________________
Коллекционер информации.
Сообщений: 5
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Google-бот, SemrushBot и гости: 57