PathLNK

Function GetExeSCut(filelnk)
On Error GoTo errore
g = Dir("c:\", 8)
Open filelnk For Input As 1
Line Input #1, stringa
Close 1

l = InStr(1, stringa, g, 1)
lStr = l + Len(g)
Do Until k = ".exe"
k = LCase(Mid(stringa, l, 4))
l = l + 1
If l > Len(stringa) + 10 Then GoTo errore
Loop
GetExeSCut = Mid(stringa, lStr, l - lStr + 3)
Exit Function
errore:
GetExeSCut = "no_"

End Function