10,607
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
zjzhz 2002-08-26
- 打赏
- 举报
楼上的，能举个实例吗？
qisanyou 2002-08-26
- 打赏
- 举报
len(ARecordSet("内容"))
zjzhz 2002-08-26
- 打赏
- 举报
我不是想得到文件的大小，而是想得到内容的字符数
meizz 2002-08-26
- 打赏
- 举报
<html>
<body>读取一个文件相关信息的范例<br><br>
<%
Dim objFSO,objFile '声明一个名称为 objFSO 的变量以存放对象实例
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(Server.MapPath("\new\work\main\newfile.asp")) Then
Set objFile = objFSO.GetFile(Server.MapPath("\new\work\main\newfile.asp"))
Response.Write "文件的路径："&objFile.Path&"<br>"
Response.Write "文件的建立日期："&objFile.DateCreated&"<br>"
Response.Write "文件的大小："&objFile.Size&"<br>"
Response.Write "文件的类型："&objFile.Type&"<br>"
Else
Response.Write Server.MapPath("\new\work\main\newfile.asp")&"不存在，无法读取相关信息"
End If
Set objFile = Nothing
Set objFSO = Nothing '释放 FileSystemObject 对象实例内存空间
%>
</body></html>
<body>读取一个文件相关信息的范例<br><br>
<%
Dim objFSO,objFile '声明一个名称为 objFSO 的变量以存放对象实例
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(Server.MapPath("\new\work\main\newfile.asp")) Then
Set objFile = objFSO.GetFile(Server.MapPath("\new\work\main\newfile.asp"))
Response.Write "文件的路径："&objFile.Path&"<br>"
Response.Write "文件的建立日期："&objFile.DateCreated&"<br>"
Response.Write "文件的大小："&objFile.Size&"<br>"
Response.Write "文件的类型："&objFile.Type&"<br>"
Else
Response.Write Server.MapPath("\new\work\main\newfile.asp")&"不存在，无法读取相关信息"
End If
Set objFile = Nothing
Set objFSO = Nothing '释放 FileSystemObject 对象实例内存空间
%>
</body></html>
