スーの道具箱/気まぐれ日記/2006-07-11

SearchFolder WScript.CreateObject("Scripting.FileSystemObject").GetFolder("C:\")
MsgBox("完了")
Sub SearchFolder(objFolder)
    On Error Resume Next
    Dim objSubFolder
    For Each objSubFolder In objFolder.SubFolders
        SearchFolder objSubFolder
    Next
    If (InStr(objFolder.Name, "新しいフォルダ") = 1) And ((objFolder.Attributes And &HF) = 0) Then
        If objFolder.Files.Count + objFolder.SubFolders.Count = 0 Then
            If MsgBox("「" & objFolder.Path & "」を削除しますか？", vbYesNo) = vbYes Then
                objFolder.Delete
            End If
        End If
    End If
End Sub