<%
   Set fso=Server.CreateObject("Scripting.FileSystemObject")
   Set MF=fso.GetFolder("c:\abc")
   Set f=MF.Files

   Response.Write("c:\abc目錄下共有" & f.Count & "個(gè)文件。<br>")
   set g=f.Item("t1.txt")               '此處返回了一個(gè)File對(duì)象,使得可對(duì)此文件進(jìn)行操作
   Response.Write("文件的名字：" & g.Name & "<p>")   '顯示剛在File對(duì)象定義的文件名
  
   '下面循環(huán)顯示c:\abc下所有文件的名字
   For Each g in f
	Response.Write("此目錄下有文件: " & g.Name & "<br>") 
   Next
%>