要复制文件的TextStream对象

Question

我有一个连接到Oracle的脚本，运行查询并将输出保存到CSV。有没有一种简单的方法可以使用现有的TextStream对象制作文件的副本？

' Execute query
Set objResultSet = objConnect.Execute(strSql)

' Create a filename to save query to 
strTimeStamp = DatePart("yyyy",Date) & Right("0" & DatePart("m",Date), 2) & _
               Right("0" & DatePart("d",Date), 2) & Right("0" & Hour(Now), 2) & _
               Right("0" & Minute(Now), 2) & Right("0" & Second(Now), 2)

strOutputFilename = strTimeStamp & ".csv"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOutputFile = objFSO.CreateTextFile(strOutputFilename, True)

' Loop through each row of recordset and output to jobcode download file
objResultSet.MoveFirst
Do While Not objResultSet.EOF
    objOutputFile.WriteLine (objResultSet(0) & "," & objResultSet(1))
    objResultSet.MoveNext
Loop

Answer 1

您可以通过在两个位置创建文件并同时将内容写入两个文件来对文件进行排序。除此之外，您必须使用Copy或CopyFile方法。 TextStream个对象只有处理文件的内容的方法，而不是位置。