2014如何用判断文件夹是否存在.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 = CreateObject(Scripting.FileSystemObject)? ? Set Fld = Fso.getfolder(ThisWorkbook.Path \)? ? ? ? For Each Fd In Fld.subfolders? ?? ???Fd.Delete? ? Next? ? ? ? For Each F In Fld.Files? ?? ???If F.Name ThisWorkbook.Name Then F.Delete? ? NextEnd Sub ――――――――――――――――――――― Option Explicit Sub 生成文件夹() Dim wjj As Object Dim Mbook As Workbook Dim wjjName As String On Error Resume Next Application.ScreenUpdating = False Set wjj = CreateObject(Scripting.FileSystemObject) wjjName = 张爱军 在C盘建立“张爱军”的文件夹 MkDir ThisWorkbook.Path \ wjjName Set wjj = Nothing 在C盘\“张爱军”文件夹中生成“张爱军.xls”工作簿文件 Set Mbook = Workbooks.Add Mbook.SaveAs Filename:=ThisWorkbook.Path \ wjjName \ wjjName .xls ActiveWindow.Close True 关闭“张爱军.xls”工作簿 Application.ScreenUpdating = True End Sub Sub 删除文件夹() Dim wjj As Object Dim wjjName As String On Error Resume Next Application.ScreenUpdating = False Set wjj = CreateObject(Scripting.FileSystemObject) wjjName = 张爱军 在C盘查找“张爱军”的文件夹(没有的则跳过，已经有的删除） If wjj.folderExists(ThisWorkbook.Path \ wjjName) = True Then wjj.deletefolder ThisWorkbook.Path \ wjjName （注：不管文件夹内是否有子文件夹或者其它文件，一律直接删除） End If Set wjj = Nothing Application.ScreenUpdating = True End Sub 注： 以上文件都在C盘内生成，但通常采用本程序目录下生成相关文件夹\文件，有利于查找，因此可以用下面的语句替代 C:\ ... This