スーの道具箱/
気まぐれ日記/2006-07-11
の編集
[
ホーム
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
Top
>
気まぐれ日記
> 2006-07-11
**[メモ]新しいフォルダを削除 [#cb5f62a1] #code(vb){{ 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で保存 //// #br -shirouさんの日記ネタがこんなとこに!! -- TOMO &new{2006-07-11 (火) 23:04:54}; #comment #br
タイムスタンプを変更しない
**[メモ]新しいフォルダを削除 [#cb5f62a1] #code(vb){{ 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で保存 //// #br -shirouさんの日記ネタがこんなとこに!! -- TOMO &new{2006-07-11 (火) 23:04:54}; #comment #br
テキスト整形のルールを表示する