请问高手，如何得到文件本身的大小？

[nttvnet]

如题.

[jervis82]

脚本运行时库

Size 属性
请参阅
Attributes 属性 | DateCreated 属性 | DateLastAccessed 属性 | DateLastModified 属性 | Drive 属性 | Files 属性 | IsRootFolder 属性 | Name 属性 | ParentFolder 属性 | Path 属性 | ShortName 属性 | ShortPath 属性 | SubFolders 属性 | Type 属性

应用于：File 对象 | Folder 对象
语言
JScript

VBScript

显示所有语言
对于文件，以字节为单位返回指定文件的大小。对于文件夹，以字节为单位返回文件夹中包含的所有文件和子文件夹的大小。

object.Size
object 应为 File 或 Folder 对象。

说明
下面的代码通过一个 Folder 对象说明了 Size 属性的用法：

[JScript]
function ShowFolderSize(filespec)
{
var fso, f, s;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.GetFolder(filespec);
s = f.Name + " uses " + f.size + " bytes.";
return(s);
}
[VBScript]
Function ShowFolderSize(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)
s = UCase(f.Name) & " uses " & f.size & " bytes."
ShowFolderSize = s
End Function
请参阅
Attributes 属性 | DateCreated 属性 | DateLastAccessed 属性 | DateLastModified 属性 | Drive 属性 | Files 属性 | IsRootFolder 属性 | Name 属性 | ParentFolder 属性 | Path 属性 | ShortName 属性 | ShortPath 属性 | SubFolders 属性 | Type 属性

应用于：File 对象 | Folder 对象



--------------------------------------------------------------------------------

© 2001 Microsoft Corporation. 保留所有权利。

[aspgreener]

用文件对象啊！
然后用它的方法就行

[chushicheng]

fso

[focus315]

什么文件大小?就是有多少兆?用LenB语句呀

[comehope]

<%
Function GetFileSize(strFile)
' =================================================
'| 功能：获取文件的大小，单位是KB
'| 输入：strFile 字符串 文件的相对路径
'| 输出：整数 文件的大小
'| 通用函数，可用于任何页面
'| 作者：张偶
'| 日期 备注
'| -----------------------------
'| 04-1-8
' =================================================
dim strFilePath,fo,objFile
strFilePath=Server.mappath(strFile)
set fo=Server.CreateObject("Scripting.FileSystemObject")

if strFile<>"" and fo.FileExists(strFilePath) then
set objFile=fo.GetFile(strFilePath)
GetFileSize=objFile.Size\1000
else
GetFileSize=0
end if
End Function
%>

[qhyan23]

我也是不知道,帮你顶.
同时学习中------

[咚锵]

Function GetFileSize()

dim strFilePath,fo,objFile
xx = request.servervariables("path_info")
YY = split(xx,"/")
For i =0 to Ubound(YY)
strFile = YY(i)
Next

strFilePath=Server.mappath(strFile)
set fo=Server.CreateObject("Scripting.FileSystemObject")

if strFile<>"" and fo.FileExists(strFilePath) then
set objFile=fo.GetFile(strFilePath)
GetFileSize=objFile.Size
else
GetFileSize=0
end if

End Function

[mjpclab]

set fso=server.createobject("scripting.filesystemobject")
set ofile=fso.getfile(server.mappath("/111/2.txt"))

response.write "文件大小" & ofile.size

set ofile=nothing
set fso=nothing

[BainStudio]

使用FSO

[huhanshan013]

楼主不看书啊！
稍微看书，看到ASP文件管理就知道了