如何用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??删除一个存在的目录或文件夹。Sub Del()? ? Dim Fso, Fld? ? Set Fso = CreateObject(Scripting.FileSystemObject)? ? Set Fld = Fso.getfolder(E:\新建文件夹\)? ? Fld.DeleteEnd Sub需要注意：如果你所打开的工作簿也在要删除的文件夹里，需要更改为只读属性，做自杀处理。Private Sub Workbook_Open()? ? Dim Fso, Fld, Fd, F? ? Set Fso