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"

 

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"