数字报刊系统
数字报刊系统
数字报刊系统

数字报刊系统
数字报刊系统
首页 报纸 杂志 云报 留言
数字报刊系统
删除某个文件夹下的除某钟类型的其他所有文件
发表时间:2012-5-16 9:47:39  浏览次数:

    我们在编写程序的时候,经常会对文件夹或文件进行操作,文件夹的创建和删除,文件的创建和删除等等,这些前辈们都写了有比较好的函数来实现,前面开发一个项目,有个特殊的要求,就是要删除某个文件夹下的除某钟类型的其他所有文件,这个还真困扰了很久,在百度上搜索到一位写的代码,比较繁琐,思索良久,写了一个比较简洁的函数,在此发出来,给以后需要的网友们使用,函数如下:

Private Sub DeleteFiles(Path,FilesType)
 Set fso = CreateObject("Scripting.FileSystemObject")
 If CheckFolder(Server.MapPath(Path)) Then
    Set Folder = fso.GetFolder(Server.MapPath(Path))
  Set AllFiles = Folder.Files
  For Each Files In AllFiles
   Extension = fso.GetExtensionName(Server.MapPath(Files.name))
   If lcase(Extension) <> FilesType Then
    Call DeleteFile(Path&"/"&Files.name)//调用删除文件函数
   End If
   Set Extension = Nothing
  Next
  Set Folder   = Nothing
  Set AllFiles = Nothing
 End If
 Set fso = Nothing
End Sub

'删除文件
Private Sub DeleteFile(Fname)
   Set fso = CreateObject("Scripting.FileSystemObject")
 If fso.FileExists(Server.MapPath(Fname)) Then
  Set f = fso.GetFile(Server.MapPath(Fname))
  f.delete()
  Set f = Nothing
 End If
 Set fso = Nothing
End Sub

    如你要删除当前目录下Images的除jpg图片类型外的其他文件,可以使用Call DeleteFiles("./Images","jpg"),
您也可以对此函数稍做修改,可以修改成删除指定目录下某个,某几种类型的其他所有文件。

本站关键词:数字报系统|数字报刊系统|电子杂志软件|数字报纸|电子报系统|网上看报系统|电子杂志系统|在线看报纸软件|高校数字报|企业内刊数字化|传统报纸数字化|公司内刊数字化|电子杂志系统|DM报刊系统|数字报手机客户端

专为政府机关内刊,企业内刊、学校校报开发,本系统包含ASP/PHP/ASP.NET/FLASH版本,可以为您量身定制,满足贵司所需!

CopyRight 2009-2020 追梦翔飞网络工作室, All Rights Reserved 追梦翔飞网络工作室 版权所有
备案号: 湘ICP备14012702号