用 FileSystemObject 就可以了

解决方案 »

  1.   

    <script language=vbs>
    Set fso=CreateObject("Scripting.FileSystemObject")
    set getfso=fso.GetFolder("c:\").files
    document.write "以下是c:所有文件"
    for each i in getfso
    document.write i & "<br>"
    next
    document.write "<p>以下是d:所有文件子文件夹包含的文件夹和文件<p>"
    set getfso=fso.GetFolder("d:\").SubFolders
    for each r in getfso
    document.write r & " 文件夹包含<p>"
    set getfso1=fso.GetFolder(r).files
    for each n in getfso1
    document.write n & "<br>"
    next
    next
    </script>