Sub s(ByVal objFo As Object)
For Each objF In objFo.SubFolders
objF.Delete
Call s(objF)
Next objF

たぶんobjF.Deleteに問題があるのですが対処できません＞＜当たり前に見えるけどｗｗｗみんなどーしてんだ