用脚本列出一个目录下的所有文件

想把我的音乐下的所有文件列成表格形式，但是音乐文件太多，所以做了一个小脚本可以列出文件目录，大家也可以做成互动样式，用TDO自由排序什么的做得更好:)

 

源码如下：

＜script language=VBScript＞

   Dim fso, f, fc

   Set fso = CreateObject("Scripting.FileSystemObject")

   Set f = fso.GetFolder("d:/jiecy/web/jt/jtp") '请改成你的路径

   set fc=f.files

 

document.write("＜table border=1 bordercolor=lightblue cellpadding=5 cellspacing=0 align=center style=border-collapse:collapse＞")

document.write("＜tr height=25 bgcolor=lightyellow＞＜td＞文件名＜/td＞＜td＞文件长度＜/td＞＜td＞建立时间＜/td＞＜/tr＞")

for each file in fc

  document.write("＜tr height=25＞＜td＞"+file.name+"＜/td＞＜td＞"+cstr(file.size/1000)+" k＜/td＞＜td＞"+cstr(file.DateCreated)+"＜/td＞＜/tr＞")

next

 

document.write("＜/table＞")

＜/script＞

 来自透明雨工作室http://www.tmyu.cn