提示这一句有错......
但是如果文件夹已经存在了会出错 那怎么判断一个文件夹存不存在？
Dim fso As New FileSystemObject if fso.FolderExists folderName then msgbox \文件夹已存在！ \else
fso.CreateFolder(foldername) end if
FileSystemObject 不能用的话,在工程里添加一下引用 \ Scripting runtime \
13.怎么判断一个文件夹存不存在？
Dim fso As New FileSystemObject if fso.FolderExists folderName then msgbox \文件夹已存在！ \else
fso.CreateFolder(foldername) end if
FileSystemObject 不能用的话,在工程里添加一下引用 \ Scripting runtime \
14.FolderExists 方法
如果指定的文件夹存在，则返回 True；否则返回 False。 object.FolderExists(folderspec) 参数 object
必选项。应为 FileSystemObject 的名称。 folderspec
必选项。文件夹名称，表示要确定是否存在的文件夹。如果该文件夹不在当前文件夹中，则必须提供完整路径名（绝对路径或相对路径）。
说明
下面例子举例说明如何使用 FolderExists 方法： Function ReportFolderStatus(fldr) Dim fso, msg
Set fso = CreateObject(\If (fso.FolderExists(fldr)) Then msg = fldr & \存在。\Else
msg = fldr & \不存在。\End If
ReportFolderStatus = msg End Function
15.vba操作文件及文件夹示例
利用excel中的vba可以对电脑中的文件及文件夹做一些常用的操作。包
括复制、重命名、删除等，其中一些简单的示例总结如下。希望对一些经常需要批量处理文件的朋友有所帮助，也希望感兴趣的朋友多多指教！
以下代码建议在on error resume next下测试 1，在D：\\下新建文件夹，命名为folder 方法1：
MkDir \：\\folder\ 方法2：
Set abc = CreateObject(\：\\folder\
2，新建2个文件命名为a.xls和b.xls
Workbooks.Add ActiveWorkbook.SaveAs Filename：=\：\\folder\\a.xls\ActiveWorkbook.SaveAs Filename：=\：\\folder\\b.xls\
3,创建新文件夹folder1并把a.xls复制到新文件夹重新命名为c.xls MkDir \：\\folder1\：\\folder\\a.xls\：\\folder1\\c.xls\
4,复制
folder
中所有文件到
folder1
Set
qqq
=
CreateObject(\qqq.CopyFolder \：\\folder\\：\\folder1\
5,重命名a.xls为d.xls name \：\\folder1\\a.xls\：\\folder1\\d.xls\6,判断文件及文件夹是否存在
Set yyy = CreateObject(\ If yyy.FolderExists(\：\\folder1) = True
Then ... If yyy.FileExists(\：\\folder1\\d.xls) = True Then ... 7,
打开folder1中所有文件 Set rrr =
CreateObject(\Set r = rrr.GetFolder(\：\\folder1\
For Each i In r.Files Workbooks.Open Filename：=(\：\\folder1\\\Next
8,删除文件c.xls kill \：\\folder1\\c.xls\
9,删除文件夹folder Set aaa = CreateObject(\aaa.DeleteFolder \：\\folder\
16.用VBA新建文件夹
MkDir 语句示例
本示例使用 MkDir 语句来创建目录或文件夹。如果没有指定驱动器，新目录或文件夹将会建在当前驱动器中。
MkDir \ ' 建立新的目录或文件夹。
MkDir \：\\Temp\在C盘根目录下新一个名为Temp的文件夹. MkDir必须逐级建立文件夹,或者说它的上一级目录必须存在后才能建议,不能跨级建立,如
MkDir \：\\Temp\\Test\如果C盘Temp目录不存在时,将出现错误.
