用js如何读入一个文件夹里的所有文件或文件名

Question

<script language=vbscript>
Sub ShowFileList(folderspec)
    Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc =f.Files
    For Each f1 in fc
        s = f1.name &"<br>"
        document.write s
    Next   
End Sub
'ShowFileList("c:\")
</script>

Answer 1

用FSO---------------------------
<SCRIPT LANGUAGE=JAVASCRIPT>
function ShowFolderFileList(folderspec)
{
  var fso, f, fc, s;
  fso = new ActiveXObject("Scripting.FileSystemObject");
  f = fso.GetFolder(folderspec);
  fc = new Enumerator(f.files);
  s = "";
  for (; !fc.atEnd(); fc.moveNext())
  {
    s += fc.item();
    s += "<br>";
  }
  return(s);
}
document.write(ShowFolderFileList("c:\\"))
</SCRIPT>