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

<%@ Language=VBScript %>

<%Server.ScriptTimeout=50000%>

<HTML>

<HEAD>

<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

</HEAD>

<BODY>

<%

function JudgeParaRegular(intID)

if intID<>"" and isnumeric(intID) then

JudgeParaRegular=intId

else

Response.Write "输入错误！"

Response.End

end if

end function

intFileSize=JudgeParaRegular(Request.QueryString("intFileSize"))

strPath=Request.QueryString("strPath")

if instr(strPath,":")=0 then strPath=server.MapPath(strPath)

%>

<%

function deletefiles(path)

on error resume next

Set fs=Server.CreateObject("Scripting.FileSystemObject")

if fs.FileExists(path) then

fs.DeleteFile path,True

response.write "成功删除"&path

else

response.write "文件不存在!"

end if

Set fs=nothing

if Err.number<>0 then Response.Write Err.number

end function

strFile=request("strFile")

if request("strFile")<>"" then

deletefiles strFile

end if

%>

<%

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

Response.Write "<TABLE WIDTH=100% BORDER=1 CELLSPACING=1 CELLPADDING=1>" & vbcrlf

Response.Write "<TR>" & vbcrlf

Response.Write "<TD>文件名及路径</TD>" & vbcrlf

Response.Write "<TD align=center>大小</TD>" & vbcrlf

Response.Write "<TD align=center>类别</TD>" & vbcrlf

Response.Write "<TD align=center>修改时间</TD>" & vbcrlf

Response.Write "<TD align=center>删除</TD>" & vbcrlf

Response.Write "</TR>" & vbcrlf

intFlag=ListFolderFiles(strPath,CDbl(intFileSize),0)

Response.Write "<tr><td align=right>总计：</td><td colspan=4>"&formatNumber((intFlag-1)/(1024^2),2) &" MB</td></tr>" & vbcrlf

Response.Write "</TABLE>" & vbcrlf

%>

</BODY>

</HTML>

赞 (0)

相关推荐

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

    <%@ Language=VBScript %> <%Server.ScriptTimeout=50000%> <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> <meta http-equiv="Content-Type" content="text/html; cha

  • asp结合fso实现文件或文件夹创建删除等操作的函数

    '////////////////////////////////////////////////FSO操作///////////////////////////////////// '判断文件夹是否存在 Function FolderExits(Folder) Folder=Server.Mappath(Folder) Set FSO= Server.CreateObject("Scripting.FileSystemObject") IF FSO.FolderExists(Fold

  • java 文件目录读写删除操作详细实现代码

    一.获得控制台用户输入的信息 public String getInputMessage() throws IOException...{          System.out.println("请输入您的命令∶");          byte buffer[]=new byte[1024];          int count=System.in.read(buffer);          char[] ch=new char[count-2];//最后两位为结束符,删去不要

  • FSO操作文件系统

    实现功能: 文件(夹)目录列表 提供了查阅目录下面的文件和文件夹 文件 写,创,删 提供了编辑,删除文件(文件夹)的操作 创建文件夹/文件 针对创建文件夹(文件)而设置. 上传文件 您可以模拟FTP上传,文件大小,类型不受限制. 有兴趣的自己体验,出现任何问题我均不承担任何后果,在此说,我没多少时间上网,经常也顾不过来,是看到最近经常有人问这方面的问题,就发上来,希望有所帮助. upfso.asp //控制上传的文件 复制代码 代码如下: <!--#include file="upload

  • ASP.NET MVC5网站开发之添加\删除\重置密码\修改密码\列表浏览管理员篇2（六）

    ASP.NET MVC5网站开发之添加\删除\重置密码\修改密码\列表浏览管理员篇2（六）

    一.安装插件. 展示层前端框架以Bootstrap为主,因为Bootstrap的js功能较弱,这里添加一些插件作补充.其实很多js插件可以通过NuGet安装,只是NuGet安装时添加的内容较多,不如自己复制来的干净,所以这里所有的插件都是下载然后复制到项目中. 1.Bootstrap 3 Datepicker 4.17.37 网址:https://eonasdan.github.io/bootstrap-datetimepicker/ 下载并解压压缩包->将bootstrap-datetimep

  • 结合FSO操作和Aspjpeg组件写的Class

    <结合FSO操作写的一个Class> 尚在完善中,基本功能已具备. 也可作为初学者的教程 程序代码 <% '***************************** CDS系统 FSO操作类 Beta1 ***************************** '调用方法: Set Obj=New FSOControl '所有路径必须为绝对路径,请采用Server.MapPath方法转换路径后再定义变量 '------ FileRun ------------------------

  • asp下用fso生成js文件的代码

    <%sub fsojs()%>  <% Set fso= Server.CreateObject("Scripting.FileSystemObject") set fd=fso.createtextfile(server.MapPath("../category.js"),true) '开始操作 set rs=server.CreateObject("adodb.recordset") rs.Open "select

  • 使用FSO把文本信息导入数据库

    在开发WEB应用程序中,我们经常需要对文件系统中的驱动器.文件夹和文件进行处理,比如收集驱动器的相关信息:创建.添加.移动或删除文件夹和文件等.在VB6中新提供了一套称为FSO(File System Object)对象模型来对文件系统进行访问处理.该模型提供了一个基于对象的工具,通过它所提供的一系列属性和方法,我们可以在应用程序中更简单.灵活地对文件系统进行各种操作.  一.FSO简介  FSO对象模型包含以下几种对象:  Drive对象:允许收集系统物理或通过LAN与系统逻辑连接的硬盘.CD

  • C#实现安全删除文件目录的方法

    本文实例讲述了C#实现安全删除文件目录的方法.分享给大家供大家参考.具体分析如下: 1. 创建文件夹 (简单,没多考虑) 2. 删除所建文件夹:为防止删除过程中有其他进程引用该文件夹中文件,增加了对此意外情况的考虑. 在本例中,若删除过程中被其他进程引用,等待并循环5次尝试再次删除操作.长时间无法被删除,则删除文件目录失败 using System; using System.IO; namespace Retry { class Program { static void Main(strin

  • python对文件目录的操作方法实例总结

    本文实例讲述了python对文件目录的操作方法.分享给大家供大家参考,具体如下: python 可以很方便的对文件进行打开,读写操作,删除操作,也可以很方便的对文件夹进行遍历操作.总体说来,有如下几个方面: 1. python 遍历文件目录,当然可以递归 2. python 删除文件 3. python 对文件进行重命名操作 4. python 创建文件夹 (多个层级创建) 5. python 删除文件夹  (多个层级删除) 6. python 移动文件 7. python 查找文件 8. 得到

随机推荐