属性问题。

现在我知道的就name,size,datelastmodified.
如果我想知道所有属性，改怎么办？

for each objfileitem in objfoldercontents '循环
response.write "

1<tr><td>"&amp;objfileitem.name&amp;"</td>" '文件名   
2response.write "<td>"&amp;objfileitem.size&amp;"k</td>" '文件大小   
3response.write "<td>"&amp;objfileitem.datelastmodified&amp;"</td></tr>

" '更新日期
next
---------------------------------------------------------------

Dim fso
set fso = Server.CreateObject("Scripting.fileSystemObject")
set folder = fso.GetFolder(Server.MapPath("/"))
'set folder = fso.GetFolder("d:\EJCS")

set subfolders = folder.subfolders
str ="

1<table border="0" cellpadding="0" cellspacing="0">"   
2for each folder in subfolders   
3  
4str= str &amp; "<tr><td>" &amp; getFiles(folder) &amp; "</td></tr>"   
5next   
6  
7str = str &amp; "</table>

Response.Write str

Function getFiles(byref folder)

Dim havaChild

labelStr =" "
if folder.subfolders.count>0 or folder.files.count>0 then

labelStr ="

1<label><font face="webdings" onclick="showOrHidden   
2  
3();" style="cursor:hand">6</font></label>

"
else
labelStr ="

1<label><font face="webdings" style="cursor:hand">1</font></label>

"
End if
res ="

 1<table border="0" cellpadding="0" cellspacing="0" width="100%">"   
 2res =res &amp; "<tr><td style="width:20px">"&amp; labelStr &amp; "</td><td colspan="3">" &amp; folder.name &amp;   
 3  
 4"</td></tr>"   
 5  
 6  
 7if folder.subfolders.count&gt;0 then   
 8res = res &amp; "<tr><td valign="top"> </td><td colspan="3" valign="top">"   
 9  
10for each folder1 in folder.subfolders   
11res = res &amp; getFiles(folder1)   
12next   
13res = res &amp; "</td></tr>"   
14end if   
15  
16  
17  
18for each file in folder.files   
19res = res &amp; "<tr><td> </td><td>" &amp; file.name &amp; "</td><td>" &amp; cint(file.size/1024) &amp;   
20  
21"K</td><td>" &amp;formatdatetime(file.DateLastAccessed,1) &amp;"</td></tr>"   
22next   
23res =res &amp; "</table>

getFiles =res

End Function

 1<script language="javascript">   
 2<!--   
 3  
 4for (var i=0;i<document.all.tags("TABLE").length;i++)   
 5{   
 6showorHiddenTabel(document.all.tags("TABLE")[i]);   
 7}   
 8  
 9  
10function showOrHidden()   
11{   
12var obj = window.event.srcElement;   
13var objTable =obj.parentElement.parentElement.parentElement.parentElement;   
14if (obj.innerText =="6")   
15{   
16obj.innerText =4;   
17}   
18else   
19obj.innerText =6;   
20  
21showorHiddenTabel(objTable)   
22  
23}   
24  
25  
26function showorHiddenTabel(objTable)   
27{   
28if (objTable.rows.length>0)   
29{   
30if (objTable.rows(1).style.display=="")   
31{   
32visible = "none";   
33}   
34else   
35visible ="";   
36  
37for (var i=1;i<objTable.rows.length;i++)   
38{   
39objTable.rows(i).style.display=visible;   
40}   
41}   
42}   
43//-->   
44</script>

你自己看一下吧!
---------------------------------------------------------------

DateCreated

返回该文件的创建时间。该性质只读。

DateLastAccessed

返回该文件最后一次访问的时间。该性质只读。

DateLastModified

返回该文件最后一次修改的时间。该性质只读。

Drive

返回该文件所在的驱动器。该属性只读。

Name

指明文件的文件名，该属性可读又可设置。

ParentFolder

返回包含该文件的文件夹。

Path

返回该文件的路径。

ShortName

返回该文件的短文件名（windows 95前版本）。

ShortPath

返回该文件的短路径名（windows 95前版本）。

Size

返回该文件的大小，以字节为单位。

Type

返回文件类型，可能的值包括Text文本，ASP文件及Internet文档(html)。

---------------------------------------------------------------

我记得用
for each可以得到未知的属性，那位用过？
谢谢。！
你说的错了，是得到未知元素。