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
转载声明:本站发布文章及版权归原作者所有,转载本站文章请注明文章来源!