以下代码建议在onerrorresumenext下测试
A,在D:/下新建文件夹,命名为folder
方法1:MkDir”D:/folder”
方法2:Setabc=CreateObject(“Scripting.FileSystemObject”)
abc.CreateFolder(“D:/folder”)
B,新建2个文件命名为a.xls和b.xls
Workbooks.Add
ActiveWorkbook.SaveAsFilename:=”D:/folder/a.xls”
ActiveWorkbook.SaveAsFilename:=”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
Setqqq=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,判断文件及文件夹是否存在
Setyyy=CreateObject(“Scripting.FileSystemObject”)
Ifyyy.FolderExists(“D:/folder1)=TrueThen…
Ifyyy.FileExists(“D:/folder1/d.xls)=TrueThen…
G,打开folder1中所有文件
Setrrr=CreateObject(“Scripting.FileSystemObject”)
Setr=rrr.GetFolder(“d:/folder1”)
ForEachiInr.Files
Workbooks.OpenFilename:=(“d:/folder1/”+i.Name+””)
Next
H,删除文件c.xls
kill”d:/folder1/c.xls”
I,删除文件夹folder
Setaaa=CreateObject(“Scripting.FileSystemObject”)
aaa.DeleteFolder”d:/folder”
而是自己。在你成功地把自己推销给别人之前,