|
|
|
|
|
脚本运行时库
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. 保留所有权利。 |
|
|
用文件对象啊!
然后用它的方法就行 |
|
|
fso
|
|
|
什么文件大小?就是有多少兆?用LenB语句呀
|
|
|
<%
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 %> |
|
|
我也是不知道,帮你顶.
同时学习中------ |
|
|
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 |
|
|
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 |
|
|
使用FSO
|
|
|
楼主不看书啊!
稍微看书,看到ASP文件管理就知道了 |
|