首先我们需要认识几个相关定义
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