最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp读取目录下的文件
时间:2022-07-02 23:15:33 编辑:袖梨 来源:一聚教程网
<%
Dim sPath, oFso, oFout, File
sPath = "plugin/"
Set oFso = Server.CreateObject("Scripting.FileSystemObject")
Set oFout = oFso.GetFolder(Server.Mappath(sPath))
Response.Write "
文件名称 | " & _文件短路径名 | " & _文件物理地址 | " & _文件属性 | " & _文件大小 | " & _文件类型 | " & _文件创建时间 | " & _最近访问时间 | " & _最近修改时间 | " & _
" & File.Name & " | " & _" & File.ShortPath & " | " & _" & File.Path & " | " & _" & File.Attributes & "(" & SenFe_Attributes(File.Attributes) & ") | " & _" & File.Size & " | " & _" & File.Type & " | " & _" & File.DateCreated & " | " & _" & File.DateLastAccessed & " | " & _" & File.DateLastModified & " | " & _
Set oFout = Nothing
Set oFso = Nothing
Function SenFe_Attributes(iType)
Select Case iType
Case 0 SenFe_Attributes = "Normal-普通文件, 没有设置任何属性."
Case 1 SenFe_Attributes = "ReadOnly-只读文件,可读写."
Case 2 SenFe_Attributes = "Hidden-隐藏文件,可读写."
Case 4 SenFe_Attributes = "System-系统文件,可读写."
Case 16 SenFe_Attributes = "Directory-文件夹或目录,只读."
Case 32 SenFe_Attributes = "Archive-上次备份后已更改的文件,可读写."
Case 1024 SenFe_Attributes = "Alias-链接或快捷方式,只读."
Case 2048 SenFe_Attributes = "Compressed-压缩文件,只读."
End Select
End Function
%>
相关文章
- 光遇12.23每日任务怎么做 光遇12月23日每日任务做法攻略 12-23
- 光遇12.23大蜡烛在哪里 光遇12月23日大蜡烛位置攻略 12-23
- 光遇12.23免费魔法有什么 光遇12月23日免费魔法收集攻略 12-23
- 《流放之路2》寻找熔炉任务攻略分享 12-23
- 《流放之路2》德雷文打法技巧分享 12-23
- 《流放之路2》永恒裁判者德雷文具体位置介绍 12-23