(VBA文件及文件夹操作.docVIP

VBA文件及文件夹操作 VBA操作文件及文件夹 on error resume next下测试 A，在D：\下新建文件夹，命名为folder 方法1：MkDir D：\folder 方法2：Set abc = CreateObject(Scripting.FileSystemObject) abc.CreateFolder (D：\folder) B，新建2个文件命名为a.xls和b.xls Workbooks.Add ActiveWorkbook.SaveAs Filename：=D：\folder\a.xls ActiveWorkbook.SaveAs Filename：=D：\folder\b.xls C,创建新文件夹folder1并把a.xls复制到新文件夹重新命名为c.xls MkDir D：\folder1 FileCopy D：\folder\a.xls, D：\folder1\c.xls D,复制folder中所有文件到folder1 Set qqq = CreateObject(Scripting.FileSystemObject) qqq.CopyFolder D：\folder, D：\folder1 D,重命名a.xls为d.xls name d：\folder1\a.xls as d：\folder1\d.xls E,判断文件及文件夹是否存在 Set yy