28,407
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
opolmzy 2003-11-29
- 打赏
- 举报
如何显示 某个文件夹下的大小？
此文件夹名为变量！！
此文件夹名为变量！！
lxqlogo0 2003-11-28
- 打赏
- 举报
<%@ Language=VBScript %>
<%option explicit%>
<HTML>
<HEAD>
<title>文件浏览器</title>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<table width=95% border=1 bordercolor=#000000 align=center cellpadding=2 cellspacing=0>
<tr align=left valign=top bgcolor="#666666"><b>
<td><font size="2" face="宋体" color="#ffffff" >路径</font></b></td>
<%
dim objFSO
dim objFile
dim objFolder
dim sMappath
set objFSO=createobject("scripting.filesystemobject")
sMappath="c:\windows"
set objfolder=objFSO.GetFolder(smappath)
%>
<td><font size="2" face="宋体" color="#ffffff">
<a href="<%=objfolder.parentfolder%>">
<%Response.Write objfolder.parentfolder%>
</a>
</font>
</td>
<td></td><td></td>
</tr>
<tr>
<tr align=left valign=top bgcolor="#800000">
<td width=30%><font color="#ffffff"><b>
<font size="2" face="宋体" >文件名</font></b></td>
<td width=15%><font color="#ffffff"><b>
<font size="2" face="宋体" >大小</font></b></td>
<td width=35%><font color="#ffffff"><b>
<font size="2" face="宋体" >修改日期</font></b></td>
<td width=20%><font color="#ffffff"><b>
<font size="2" face="宋体" >属性</font></b></td>
</tr>
<%
For each objFile in objfolder.files
%>
<tr align=left valign=top bordercolor="#999999" bgcolor='f7efde'>
<td><font size=2 face="宋体" color="#000000">
<a href="<%=smappath & "/" & objfile.name%>">
<%Response.Write objfile.name%>
</a>
</font>
</td>
<td>
<font size=2 face="宋体" color="#000000">
<%if objfile.size<1024 then
Response.Write objfile.size & "Bytes"
elseif objfile.size<1048576 then
Response.Write round(objfile.size/1024.1) & "KB"
else
Response.Write round((objfile.size/1024.1)/1024.1) & "MB"
end if
%>
</font>
</td>
<td>
<font size=2 face="宋体" color="#000000">
<%Response.Write objfile.datelastmodified%>
</font>
</td>
<td>
<font size=2 face="宋体" color="#000000">
<%Response.Write objfile.type%>
</font>
</td>
</font>
</td>
</tr>
<%next
%>
</table>
<P> </P>
</BODY>
</HTML>
<%option explicit%>
<HTML>
<HEAD>
<title>文件浏览器</title>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<table width=95% border=1 bordercolor=#000000 align=center cellpadding=2 cellspacing=0>
<tr align=left valign=top bgcolor="#666666"><b>
<td><font size="2" face="宋体" color="#ffffff" >路径</font></b></td>
<%
dim objFSO
dim objFile
dim objFolder
dim sMappath
set objFSO=createobject("scripting.filesystemobject")
sMappath="c:\windows"
set objfolder=objFSO.GetFolder(smappath)
%>
<td><font size="2" face="宋体" color="#ffffff">
<a href="<%=objfolder.parentfolder%>">
<%Response.Write objfolder.parentfolder%>
</a>
</font>
</td>
<td></td><td></td>
</tr>
<tr>
<tr align=left valign=top bgcolor="#800000">
<td width=30%><font color="#ffffff"><b>
<font size="2" face="宋体" >文件名</font></b></td>
<td width=15%><font color="#ffffff"><b>
<font size="2" face="宋体" >大小</font></b></td>
<td width=35%><font color="#ffffff"><b>
<font size="2" face="宋体" >修改日期</font></b></td>
<td width=20%><font color="#ffffff"><b>
<font size="2" face="宋体" >属性</font></b></td>
</tr>
<%
For each objFile in objfolder.files
%>
<tr align=left valign=top bordercolor="#999999" bgcolor='f7efde'>
<td><font size=2 face="宋体" color="#000000">
<a href="<%=smappath & "/" & objfile.name%>">
<%Response.Write objfile.name%>
</a>
</font>
</td>
<td>
<font size=2 face="宋体" color="#000000">
<%if objfile.size<1024 then
Response.Write objfile.size & "Bytes"
elseif objfile.size<1048576 then
Response.Write round(objfile.size/1024.1) & "KB"
else
Response.Write round((objfile.size/1024.1)/1024.1) & "MB"
end if
%>
</font>
</td>
<td>
<font size=2 face="宋体" color="#000000">
<%Response.Write objfile.datelastmodified%>
</font>
</td>
<td>
<font size=2 face="宋体" color="#000000">
<%Response.Write objfile.type%>
</font>
</td>
</font>
</td>
</tr>
<%next
%>
</table>
<P> </P>
</BODY>
</HTML>
