[[20140716201954]]　『フォルダの削除』（伊藤）　ページの最後に飛ぶ

『フォルダの削除』（伊藤）

 階層が不明のフォルダ群から特定の名前のフォルダのみを削除したいです
 何かヒント等ありますでしょうか

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 EXCEL でやらないとなら無い理由が何かありますか？

 普通にフォルダの検索で、検索結果から消したいものを選んで（基本全選択？）
 削除ではダメでしょうか。
（Mook） 2014/07/16(水) 21:37

 すみません
 VBSでやりたいんです
 適切な質問場所が見当たらなかったため、ここに質問致しました

（伊藤） 2014/07/16(水) 21:42

 うーん、場違いというのもありますが、だったらせめてそのくらい書きましょうよ。
 VBA での回答を期待するにしても、Dir や Kill を使ったら VBS では動かないですし、
 そうしたら回答した人は無駄な労力ですよね。

 乗りかかった船ですから一応のサンプルまで。
 対象フォルダをだまって丸ごと消すサンプルなので、自己責任でお試しください。
 （自分で作っておいてなんですけれど、けっこう危険なスクリプト・・・）

 Set fso = CreateObject("Scripting.FileSystemObject")
 RemoveFolders fso.GetFolder( "検索したいフォルダパス" )

 Sub RemoveFolders( folder )
     For Each f In folder.SubFolders
         If f.Name = "消したいフォルダ名" Then
             CreateObject("WScript.Shell").Run "cmd.exe /c rd /s /q """ & f.Path & """",0, True
         Else
             RemoveFolders f
         End If
     Next
 End Sub
（Mook） 2014/07/16(水) 22:07

 Mookさん、おはようございます

 >うーん、場違いというのもありますが、だったらせめてそのくらい書きましょうよ。
 >VBA での回答を期待するにしても、Dir や Kill を使ったら VBS では動かないですし、
 >そうしたら回答した人は無駄な労力ですよね。
 今後は上記の点に注意して使用させて頂きます
 申し訳ありませんでした

 実際に動かしてみましたが、完璧です！
 本当に助かりました！

（伊藤） 2014/07/17(木) 09:12

コメント返信：

[ 一覧(最新更新順) ]

[[20140716201954]] 『フォルダの削除』（伊藤） ページの最後に飛ぶ

[[20140716201954]]　『フォルダの削除』（伊藤）　ページの最後に飛ぶ