Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


76586 / 76732 ←次へ | 前へ→

【4566】Re:空のサブフォルダを削除したい
回答  JuJu E-MAIL  - 03/3/27(木) 8:17 -

引用なし
パスワード
   てとさん、BOTTAさん、Keinさん、こんにちはぁ

>サブフォルダの階層が深くても空のサブフォルダを見つけたらそれを削除する。

私もよく使うので関数にしています。
 DeleteEmptyFolder "C:\FolderName"
のように呼び出してね。

' 空のフォルダを削除
Sub DeleteEmptyFolder(ByVal Folder As Variant)
  Dim objSubFolder As Object
  ' 引数がフォルダオブジェクト以外のときはフォルダオブジェクトに変換する
  If TypeName(Folder) <> "Folder" Then Set Folder = CreateObject("Scripting.FileSystemObject").GetFolder(CStr(Folder))
  ' サブフォルダがあれば再帰的に繰り返す
  For Each objSubFolder In Folder.SubFolders
    DeleteEmptyFolder objSubFolder
  Next
  ' フォルダ内にファイルとフォルダがなければフォルダを削除する
  If Folder.Files.Count + Folder.SubFolders.Count = 0 Then Folder.Delete
  Set Folder = Nothing
End Sub

>サブフォルダの中に空のサブフォルダと、サイズが1以上のファイルが存在した場合、空のサブフォルダを削除する。

ファイルが存在したする空のサブフォルダ???

ではではぁ

0 hits

【4531】空のサブフォルダを削除したい てと 03/3/25(火) 19:13 質問
【4551】Re:空のサブフォルダを削除したい BOTTA 03/3/26(水) 15:03 回答
【4557】Re:空のサブフォルダを削除したい てと 03/3/26(水) 18:58 質問
【4559】Re:空のサブフォルダを削除したい Kein 03/3/26(水) 21:25 回答
【4566】Re:空のサブフォルダを削除したい JuJu 03/3/27(木) 8:17 回答
【4573】Re:空のサブフォルダを削除したい BOTTA 03/3/27(木) 12:42 お礼
【4574】Re:空のサブフォルダを削除したい てと 03/3/27(木) 12:43 お礼

76586 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free