这是一个ASP显示文件夹属性的函数
和大家一起分享一下
\ GenerateFolderInformation
\ 目的
\ 生成一个字符串来描述文件夹的当前状态
\ 示范下面的内容
\ FolderPath
\ FolderName
\ FolderDateCreated
\ FolderDateLastAccessed
\ FolderDateLastModified
\ FolderSize
Function GenerateFolderInformation(Folder)
Dim S
S = \Path:\ & TabStop & FolderPath
S = S & NewLine & \Name:\ & TabStop & FolderName
S = S & NewLine & \Attribs:\ & TabStop & ShowFileAttr(Folder)
S = S & NewLine & \Created:\ & TabStop & FolderDateCreated
S = S & NewLine & \Accessed:\ & TabStop & FolderDateLastAccessed
S = S & NewLine & \Modified:\ & TabStop & FolderDateLastModified
S = S & NewLine & \Size:\ & TabStop & FolderSize & NewLine
GenerateFolderInformation = S
End Function
