VBA读取文件

首先我们需要认识几个相关定义
FileSystemObject
文件系统定义

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.txt", True)
a.WriteLine("This is a test.")
a.Close

以上是offices2010里头的一段代码。
定义文件系统→创建文件→写内容→关闭文件

Folder
文件夹

Dim fld
Set fld = fs.GetFolder(folderspec)

取得已有文件夹。

File
文件

Dim f
Set f = fs.GetFile(filespec)

顾名思义，取得已有文件。

有了以上概念我们就很容易写出一个读取文件夹写文件的程序了

Dim fs As New FileSystemObject
Dim fld As Folder
Dim f As File
Dim fileNameCo As New Collection

Set fld = fs.GetFolder(path)

For Each f In fld.Files
    fileNameCo.Add f.path
Next

'释放内存
Set f = Nothing
Set fld = Nothing
Set fs = Nothing