如何用VBA判断文件夹是否存在.docVIP

如何用VBA判断文件夹是否存在？ 如何实现：1、判断??日计划??文件夹是否存在，如果不存在，则自动生成2、判断??周评审??文件夹是否存在，如果存在，则自动删除文件的路径： e:\定单计划\月度定单\日计划? ? 请各位老师指导！ 最简单是dir，如果为空，则不存在 if dir(e:\定单计划\月度定单\日计划,16) =empty then??msgobx? ?文件夹不存在end if 如何新建一个文件夹？ MkDir sPath 创建文件夹Name??as??剪切文件if dir(e:\定单计划\月度定单\日计划\) = then MkDIr e:\定单计划\月度定单\日计划\ 如何删除一个文件夹？ Kill e:\新建文件夹\*.*kill不能删除子目录 RmDir path??删除一个存在的目录或文件夹。 ――――――――――――――― ‘文件要写在thisworksheet中,不能写在模块中 Sub Del()? ? Dim Fso, Fld? ? Set Fso = CreateObject(Scripting.FileSystemObject)? ? Set Fld = Fso.getfolder(E:\新建文件夹\)? ? Fld.DeleteEnd Sub 需要注意：如果你所打开的工作簿也在要删除的文件夹里