Roman Pfarrhofer: Sorry war noch debug-code drinnen

Beitrag lesen

Hi Uschi!

aber jetzt sollte es gehen...

<html>
<title>Folder 1.0</title>
<!-- Folder 1.0 201000                                                     -->
<!-- idea and development by Roman Pfarrhofer, r.pfarrhofer@happy-snack.at -->
<HTA:APPLICATION ID=Folder" BORDER="normal" BORDERSTYLE="normal" CAPTION="yes" MAXIMIZEBUTTON="yes" MINIMIZEBUTTON="yes" SHOWINTASKBAR="yes" SINGLEINSTANCE="no" SYSMENU="yes" WINDOWSTATE="maximize" VERSION="1.0" STATUSBAR="YES">
<body>
<textarea id="tocopy"></textarea>
<script>
// Achtung: Nie einen Backslash verwenden und ohne slash am schluß!
path = "d:/temp";

subfolder = new Array();
fso = new ActiveXObject("Scripting.FileSystemObject");
lenpath=path.length+1;
function folder(x) {
var f = fso.GetFolder(x);
var sf = new Enumerator(f.SubFolders);
subfolder+="<ul>";
for(; !sf.atEnd(); sf.moveNext()) {
  subfolder+='<li><a href="'+String(sf.item()).substr(lenpath,String(sf.item()).length)+'/">'+String(sf.item()).substr(lenpath,String(sf.item()).length)+'/</li>';
  folder(sf.item());
  }
  subfolder+="</ul>";
}
folder(path);
document.getElementById("tocopy").value=subfolder.split(String.fromCharCode(92)).join("/").toLowerCase();
</script>
</body>
</html>

CU Roman