6-10.asp

来自「而他65 人引入一45同意4yuh7iu7若他其二分3儿·56一6y65y7u7」· ASP 代码 · 共 15 行

<%
   Set sfo=Server.CreateObject("Scripting.FileSystemObject")
   set mfs=sfo.getfolder("c:\tools")

'获取c盘tools目录下所有文件夹集合的Folders数据集合
   Set mfs1=mfs.SubFolders

'显示出c盘tools目录下子文件夹的数目
   Response.Write("c盘tools目录下共有 " & mfs1.Count & " 个子文件夹<P>")

'显示c盘tools目录下所有子文件夹的名字
   For Each Folder in mfs1
       Response.Write("子文件夹名: " & Folder.Name & "<br>")
   Next
%>