vba操作文件及文件夹示例，希望对大家有用

UNARTHUR

利用excel中的vba可以对电脑中的文件及文件夹做一些常用的操作。 包括复制、重命名、删除等，其中一些简单的示例总结如下。 希望对一些经常需要批量处理文件的朋友有所帮助，也希望感兴趣的朋友多多指教！

以下代码建议在on error resume next下测试 1，在D:\下新建文件夹，命名为folder 方法1：MkDir "D:\folder" 方法2：Set abc = CreateObject("Scripting.FileSystemObject") abc.CreateFolder ("D:\folder")

2，新建2个文件命名为a.xls和b.xls Workbooks.Add ActiveWorkbook.SaveAs Filename:="D:\folder\a.xls" ActiveWorkbook.SaveAs Filename:="D:\folder\b.xls"

3,创建新文件夹folder1并把a.xls复制到新文件夹重新命名为c.xls MkDir "D:\folder1" FileCopy "D:\folder\a.xls", "D:\folder1\c.xls"

4,复制folder中所有文件到folder1 Set qqq = CreateObject("Scripting.FileSystemObject") qqq.CopyFolder "D:\folder", "D:\folder1"

5,重命名a.xls为d.xls name "d:\folder1\a.xls" as "d:\folder1\d.xls"

6,判断文件及文件夹是否存在 Set yyy = CreateObject("Scripting.FileSystemObject") If yyy.FolderExists("D:\folder1) = True Then ... If yyy.FileExists("D:\folder1\d.xls) = True Then ...

7,打开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

8,删除文件c.xls kill "d:\folder1\c.xls"

9,删除文件夹folder Set aaa = CreateObject("Scripting.FileSystemObject") aaa.DeleteFolder "d:\folder"

foshan

谢谢楼主!绝对是精品。

[em22][em22][em22][em23][em23][em23]

Long_III

值得收藏！

不过平时比较少用到这些文件操作

zz5151353

好東西,下載收藏研究學習,謝謝樓主無私提供分享 !!!

cxffxc

谢谢

收藏研究

网事如峰

不错，，，也可以调用批处理命令来做所有的这一些

网事如峰

为什么我试了那个删文件夹的，他说 错误70，拒绝的权限

UNARTHUR

以下是引用网事如峰在2005-2-28 22:29:00的发言： 不错，，，也可以调用批处理命令来做所有的这一些

用批处理文件当然是可以的，但是需要新建一个批处理文件，我们旨在用vba解决尽量多的问题

UNARTHUR

以下是引用网事如峰在2005-2-28 22:40:00的发言： 为什么我试了那个删文件夹的，他说 错误70，拒绝的权限

是不是你要删除的那个文件夹是只读的？或者你没有权限更改

cofe2000

楼主真是个有心人啊！