Sub删除所有空文件夹()DimstrpathAsStringstrpath=Application.InputBox(prompt:="请输入文件夹,名称:",_Title:="输入文件夹名称",Default:=thisworbook.Path,Type:=2)Ifstrpath="False"Orstrpath=""ThenExitSubCalldelemtydir(st