Roman Pfarrhofer: Version 2.0

Beitrag lesen

Hi!

Auf Uschis bitte hin, habe ich das skript noch so geändert, daß die ausgabe alle files beinhaltet:

<html>
<title>Folder 2.0</title>
<!-- Folder 2.0 211000                                                     -->
<!-- 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);
var sfn = new Enumerator(f.Files);
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());
  }
  for(; !sfn.atEnd(); sfn.moveNext()) {
    if (String(sfn.item())) {
     subfolder+='<li><a href="'+String(sfn.item()).substr(lenpath,String(sfn.item()).length)+'">'+String(sfn.item()).substr(lenpath,String(sfn.item()).length)+'</li>';
   }
}
  subfolder+="</ul>";
}
folder(path);
document.getElementById("tocopy").value=subfolder.split(String.fromCharCode(92)).join("/").toLowerCase();
</script>
</body>
</html>

Viel Spaß Uschi

Roman