Et avec :

<%Function DoubleSlash(chaine)
  chaine = Replace(chaine, "\", "\\")  //chaine = Replace(chaine, "\", "/")
  DoubleSlash = chaine
End Function%>
....
<%DoubleSlash(dir)%>
....
<%for each f in fic%>
      ....
      < href="#" onclick="exec('excel.exe <%=dir&"\"&f.name%>')">lien</a>
      ....
<%next%>
....

?