PensieveDirectory="C:\\drorbn\\AcademicPensieve";;
AllLinks=FileNames["*.url", {PensieveDirectory}, Infinity];
StringJoin@@Flatten[{
"[\n",
Riffle[
Table[
{
"  [[",
Riffle[
{"\"",#,"\""}& /@ FileNameSplit[StripRootDir[link]],
", "
],
"], \"", LinkTarget[link], "\"]"
},
{link, AllLinks}
],
",\n"
],
"\n]"
}]

Length[AllLinks]