У меня есть два текстовых файла, мне нужно объединить два с отметкой даты, используя VBscript

Question

У меня есть два .txt файла;Я написал VBscript для идентификации двух последних измененных файлов.Код повторяет два измененных файла по отдельности.Мне нужно объединить эти два измененных файла и указать другое имя с отметкой даты.

Пример:

txt1.txt
txt2.txt

После объединения:

txt09022011.txt

Answer 1

Предполагая, что вы просто хотите вывести содержимое каждого текстового файла по порядку в новый текстовый файл:

Dim strInputPath1, strInputPath2, strOutputPath
Dim txsInput1, txsInput2, txsOutput
Dim FSO

Set FSO = CreateObject("Scripting.FileSystemObject")

strInputPath1 = "C:\txt1.txt"
strInputPath2 = "C:\txt2.txt"
strOutputPath = "C:\txt" & Format(Now, "ddmmyyyy") & ".txt" 
' For the timestamp I use Now (today's date). Can also choose some other date. 

Set txsInput1 = FSO.OpenTextFile(strInputPath1, 1)
Set txsInput2 = FSO.OpenTextFile(strInputPath2, 1)
Set txsOutput = FSO.CreateTextFile(strOutputPath)

txsOutput.Write txsInput1.ReadAll
txsOutput.Write txsInput2.ReadAll

txsInput1.Close
txsInput2.Close
txsOutput.Close