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

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"),
您也可以对此函数稍做修改，可以修改成删除指定目录下某个，某几种类型的其他所有文件。