当前位置:首页 > 程序&理念 >

取得一个文件夹下所有文件名

时间:2007-05-12 19:15:24浏览:50577 本站原创


<%
FoldPath=Server.Mappath(\"lp023.com\") 'lp023.com是目录名
set    fso=Server.CreateObject(\"Scripting.FileSystemObject\")
set    fsoFolder=fso.GetFolder(FoldPath)
Set    GetFiles=fsoFolder.files
Dim    FileArr(),i
i=0
For    Each  f   in GetFiles
ReDim Preserve FileArr(i)
        Temp=f.DateCreated'取出文件建立时间
        file_name=f.Name
      FileArr(i)=Temp
      response.write file_name&vbcrlf
i=i+1
Next
%>
1

上一篇:在这个流行挂马的年代建站
下一篇:博客实名后的变化!

发表评论

昵称:  验证码:

关于博主

博主

博主:BlueCode

职业:web程序

简介:2002年开始一直从事Web制作,网站运营,会PHP+MYSQL ASP+MSSQL,微信开发