Whao, I made it:
+ Update: Support unlimited level of sub-directory (Many thanks to serendipity's Diskmanager code)
+ Hightlight path component when mouse hover (thanks serendipity again)
+ Support network folder as well (i.e: \\Mary-PC\Picture)
+ Customizable font
Code: Select all
$Count = getpathcomponent("<curpath>", "count");
$Fontsize = "font-size:18px;" ;
$Fontname = "font-family: Verdana;";
$Bold = "True";
If (substr(<curpath>,,2) == "\\") {$Link = "\\" . getpathcomponent("<curpath>", "component", -$Count) . "\"};
Else {$Link = getpathcomponent("<curpath>", "component", -$Count) . ":\"};
$html = "<a href='xys:" . $Link . "'>" . $Link . "</a>";
$Index = 1;
While ($Index < $Count){
$Link = $Link . getpathcomponent("<curpath>", "component", -$Count + $Index) . "\";
$html = $html . "<a href='xys:" . $Link . "'>" . getpathcomponent("<curpath>", "component", -$Count + $Index) . "\" . "</a>";
incr $Index};
If ($Bold == "True") {$html = "<b>" . $html . "</b>"};
$displaybread= <<<BREAD
<TABLE><TD class="special"><span style='$Fontsize $Fontname'>$html</span></TD></TABLE>
BREAD;
$style= <<<STYLE
<STYLE TYPE="text/css">
TD.special :hover {background-color: #c5e5c5;}
</STYLE>
STYLE;
goto html($style $displaybread);
P.S:
- @Admin: Please move this to Script exchange please
- Any suggestion to improve the code?
- As I mentioned in this post:
http://www.xyplorer.com/xyfc/viewtopic. ... =60#p80035 The GUI would be much better if, instead of running a separate script like this, holding down Ctrl will put addressbar in Clickable Breadcrumb mode. Hope that this concept is sexy enough to be on Don's priority list