遍历文件夹下文件写入文本

set f=ofso.opentextfile("D:\print.txt",2,true)
f.write a
f.close
msgbox "完成。"

Function TreeIt(sPath)
 on error resume next
 Set oFso = CreateObject("Scripting.FileSystemObject")
 Set oFolder = oFso.GetFolder(sPath)
 Set oSubFolders = oFolder.Subfolders
 Set oFiles = oFolder.Files
 Set qtLibraries = qtApp.Test.Settings.Resources.Libraries
 For Each oFile In oFiles
        a=a & ofile.path & vbcrlf
 Next
 For Each oSubFolder In oSubFolders
  TreeIt(oSubFolder.Path)
  Next
End Function