定时删除指定目录下的文件和子目录的方法

来源：百度知道 编辑：UC知道 时间：2024/06/19 08:54:45
各位高手,有没有什么软件可以定时删除指定目录下的文件和子目录的啊,但要保证父目录不被删掉,或是批处理也行啊,请赐教啊!比如父目录为C:\A
然后A目录下有子目录B和一些文件,我只要删掉A目录下的B和其他文件然后保留A目录!有什么办法呢?在网上找了一些都没有什么效果的啊!

一、定时功能的实现用Timer控件就行，我就不说了。
二、以下是删除指定目录下的文件和子目录的函数：

Option Explicit
'功能：删除文件夹(含文件),并解决删除时文件正在使用的问题
'参数：CurrPath 要删除的文件夹
Sub KillFolder(CurrPath As String)
Dim sFileName As String
Dim newPath As String
Dim sPath As String
Dim i As Integer, s As String
Static oldPath As String, Tz As String, SelPath As String

If Left(CurrPath, 1) <> "?" Then '如果没有?号标识，则表示初次使用
oldPath = "" '初次使用清空静态变量
Tz = ""
If CurrPath = "" Or Dir(CurrPath, 31) = "" Then Exit Sub
SelPath = CurrPath
Else
CurrPath = Mid(CurrPath, 2)
End If

On Error Resume Next
sPath = CurrPath & IIf(Right(CurrPath, 1) = "\", "", "\")

sFileName = Dir(sPath, 31) '31的含义∶31=vbNormal+vbReadOnly+vbHidden+vbSystem+vbVolume+vbDirector