以下代码建议在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"
E,重命名a.xls为d.xls
name "d:/folder1/a.xls" as "d:/folder1/d.xls"
F,判断文件及文件夹是否存在
Set yyy = CreateObject("Scripting.FileSystemObject")
If yyy.FolderExists("D:/folder1) = True Then ...
If yyy.FileExists("D:/folder1/d.xls) = True Then ...
G,打开folder1中所有文件
Set rrr = CreateObject("Scripting.FileSystemObject")
Set r = rrr.GetFolder("d:/folder1")
For Each i In r.Files
Workbooks.Open Filename:=("d:/folder1/" + i.Name + "")
Next
H,删除文件c.xls
kill "d:/folder1/c.xls"
I,删除文件夹folder
Set aaa = CreateObject("Scripting.FileSystemObject")
aaa.DeleteFolder "d:/folder"