Я определяю содержимое ярлыка так:

Код:
Function danShurtCut(Name)
'Расшифровка ярлыка
Form1.CommonDialog1.Filename = Name
Form1.CommonDialog1.filter ="*.*"+chr(124)+"*.*"
'извиняюсь , если неправильно написал по памяти имя свойства
Form1.CommonDialog1.dialogtitle ="Ярлык на папку"
SendKeys Chr(13)
Form1.CommonDialog1.ShowOpen
danShurtCut = CommonForm1.Dialog1.Filename
End Function



Функция выдает либо путь к файлу сразу, либо путь к выбранному файлу(если ярлык на папку), либо полное имя ярлыка, если файл не выбран(и ярлык на папку)

Это, конечно, криво, как иначе определить содержимое ярлыка?

Оригинальный способ , вот более удобный, найденный на одном из ресурсов по кодингу на VB:

Dim myFSO As Object
Dim myFL, a, b, c, d, e, f
Set myFSO = CreateObject("WScript.Shell")
Set myFL = myFSO.CreateShortCut("Полный путь к ярлыку.lnk")
a = "Путь к родительскому объекту: " & myFL.TargetPath & vbCrLf
b = "Горячая клавиша: " & myFL.Hotkey & vbCrLf
c = "WindowStyle: " & myFL.WindowStyle & vbCrLf
d = "№Иконки в род. файле: " & myFL.IconLocation & vbCrLf
e = "Комментарий иконки: " & myFL.Description & vbCrLf
f = "Рабочая папка род. объ.: " & myFL.WorkingDirectory

Set myFSO = Nothing
Set myFL = Nothing
MsgBox a & b & c & d & e & f

Спасибо огромное за ответ!

Не за что