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

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

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


<%
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，微信开发

  • Linux文章
  • PHP文章
  • 随机文章