扫描多个CSV文件以附加单个输出文件

Question

从代码开始：

Const ForReading = 1
Const ForAppending = 8

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objSourceFile = objFSO.OpenTextFile("Path\file.csv", ForReading)

Set objDestinationFile = objFSO.OpenTextFile("Path\Database.csv", ForAppending)

'Loop start files in dir
Do Until objSourceFile.AtEndOfStream

    strLine = objSourceFile.ReadLine

    arrFields = Split(strLine, ",")

    If arrFields(0) <> """""" Then
        strContents = strContents & arrFields(1) & ","  
    End If

Loop
strContents = strContents & vbCrLf
objSourceFile.Close
objDestinationFile.Write strContents
'Move source file to processed directory
'Loop end files in dir


objDestinationFile.Close

一次只能处理一个文件，但我尝试将多个文件附加到单个文件中。

感谢任何提示。

感谢。

编辑：所以这是一个以单个文件开头的请求，该文件变成了必须迁移许多文件。原始CSV需要更改其格式，然后放入另一个更易于使用的CSV中。 问题是在将文件放入目标文件之前，必须修改许多文件和每个源文件。我是VB Scripting的新手，我试图用我的文字简洁。谢谢。 我很感激帮助。