Top > 気まぐれ日記 > 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

を拡張子vbsで保存

 
  • shirouさんの日記ネタがこんなとこに!! -- TOMO 2006-07-11 (火) 23:04:54

 


添付ファイル: fileDelNewFolder.vbs 522件 [詳細]