Pensieve header: Trying to fix the shortcut target-detection program.

lnk="C:\\drorbn\\AcademicPensieve\\2014-05\\KnotAtlas - Shortcut.lnk";
file=BinaryReadList[lnk];

FromCharacterCode[file]

PensieveDirectory="C:\\drorbn\\AcademicPensieve";
ShortcutTarget::failed ="Failed to detect target for `1`.";
ShortcutTarget[lnk_String] := Module[
{l,z},
z=FromCharacterCode[0];
altdir=StringReplace[PensieveDirectory, "C:"->"\\\\DROR-X220"];
l = StringCases[
FromCharacterCode[BinaryReadList[lnk]],
{PensieveDirectory<>"\\","\\\\DROR-X220\\drorbn"<>z<>"AcademicPensieve\\"}~~ Shortest[u__]~~ z :> u
];
If[Head[l] === List  &&  Length[l]>0, First[l],
Message[ShortcutTarget::failed, lnk]; ""
]
];

ShortcutTarget[lnk]