使用FSO按文件大小浏览文件目录并进行删除操作

标签：style   ext   color   http   c   int   

%>

<% 
function ListFolderFiles(strPath,intFileSize,intFlag) 
strOriginPath= Request.ServerVariables("Script_Name")& "?strPath=" &Request.QueryString("strPath") & "&intFileSize="&Request.QueryString("intFileSize") 
if strPath<>"" then 
if intFlag=0 then 
intFlag=intFlag+1 
end if 
Set objFs=Server.CreateObject("Scripting.FileSystemObject") 
Set objFdir=objFs.GetFolder(strPath) 
strParentPath= objFs.GetParentFolderName(strPath) 
for each strSubFiles in objFdir.files 
if strSubFiles.size /(1024^2)>=intFileSize then 
Response.Write "<TR>" & vbcrlf 
Response.Write "<TD>" & replace(strNullTran(strSubFiles),strNullTran(strSubFiles.Name),"<b>"&strNullTran(strSubFiles.Name)&"</b>") & "</TD>" & vbcrlf 
Response.Write "<TD>"& strNullTran(FormatNumber(strSubFiles.size /(1024^2),2)) &" MB</TD>" & vbcrlf 
Response.Write "<TD>" & strNullTran(strSubFiles.type) & "</TD>" & vbcrlf 
Response.Write "<TD>" & strNullTran(strSubFiles.datelastmodified) & "</TD>" & vbcrlf 
Response.Write "<TD><A HREF=‘"& strOriginPath & "&strFile="&strNullTran(strSubFiles)&"‘><img align=absmiddle border=0 src=‘images/delete.gif‘></A></TD>" & vbcrlf 
Response.Write "</TR>" & vbcrlf 
intFlag=intFlag+strSubFiles.size 
end if 
next 
for each strSubFolders in objFdir.SubFolders 
if intFlag=0 then intFlag=1 
ListFolderFiles strSubFolders,intFileSize,intFlag 
next 
else 
Response.Write "<tr><td colspan=5>输入错误！</td></tr>" 
end if 
ListFolderFiles=intFlag 
end function 
function strNullTran(str) 
if isnull(str) or str="" then 
strNullTran=" " 
else 
strNullTran=str 
end if 
end function 

使用FSO按文件大小浏览文件目录并进行删除操作,布布扣,bubuko.com

使用FSO按文件大小浏览文件目录并进行删除操作

标签：style   ext   color   http   c   int   

原文地址：http://blog.csdn.net/u014739757/article/details/25384181