在VBA中怎样判断文件夹是否存在？.doc

如何用VBA判断文件夹是否存在？如何实现：1、判断日计划文件夹是否存在，如果不存在，则自动生成2、判断周评审文件夹是否存在，如果存在，则自动删除文件的路径： e:定单计划月度定单日计划 请各位老师指导！最简单是dir，如果为空，则不存在if dir(e:定单计划月度定单日计划,16) =empty thenmsgobx 文件夹不存在end if如何新建一个文件夹？MkDir sPath 创建文件夹Nameas剪切文件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需要注意：如果你所打开的工作簿也在要删除的文件夹里，需要更改为只读属性，做自杀处理。保留本工作薄时：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 SubOption ExplicitSub 生成文件夹()Dim wjj As ObjectDim Mbook As WorkbookDim 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 = TrueEnd SubSub 删除文件夹()Dim wjj As ObjectDim 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 = TrueEnd