VB如何删除指定文件夹下的空文件夹及创建日期大于七天的文件

1个Text控件,Text1
2个Option控件,Option1和Option2
1个Command控件,Command1

Private Sub Command1_Click()
On Error GoTo Err_show
Dim DateTmp As String
Dim Fso As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
Set F1 = Fso.GetFolder(Text1.Text)
Set F2 = F1.Files
Set F3 = F1.SubFolders

If Option1.Value = True Then
For Each F4 In F2
DateTmp = Fso.GetFile(F4.Path).DateLastModified
If DateDiff("d", DateTmp, Now) > 7 Then
Fso.GetFile(F4.Path).Delete
End If
Next
End If

For Each F5 In F3
If Fso.GetFolder(F5.Path).Size = 0 Then
Fso.GetFolder(F5.Path).Delete
End If
Next

MsgBox "清理完成！", vbInformation
Exit Sub

Err_show:
MsgBox Err.Description, vbExclamation
End Sub

Private Sub Form_Load()
Option1.Width = 2175
Option2.Width = 1575
Option1.Caption = "删除文件和空文件夹"
Option2.Caption = "仅删除空文件夹"
End Sub

本文链接：http://lxkj.vip/?id=35