VBScript合并源文件

option explicit
const forReading = 1,forWriting = 2,forAppending = 8
const TristateUseDefault = -2

dim objFSO,objFile,srcFile,txtFile,cFile
dim txtFilePath,cFilePath
dim fsdir,fc,fsname
dim rindex,index,sfile(50)
dim textcontent



cFilePath = "C:\VBS\opp_s_to_txt\Source\"

set objFSO = CreateObject( "Scripting.FileSystemObject")

'***************************************************************
'Read source file name
'***************************************************************
set fsdir = objFSO.GetFolder(cFilePath)
set fc = fsdir.Files
index = 0
for each fsname in fc
  sfile(index) = fsname.Name
  index = index + 1
next


'***************************************************************
'get filelist
'***************************************************************
txtFilePath = "C:\VBS\opp_s_to_txt\filelist.txt"
If (objFSO.FileExists(txtFilePath)) = 0 Then
  objFSO.CreateTextFile(txtFilePath)
End If

set objFile = objFSO.OpenTextFile(txtFilePath,forWriting, true)
for rindex = 0 to index-1 step 1
  objFile.write sfile(rindex)
  objFile.writeblanklines 1
next
objFile.Close

'***************************************************************
'get filelist
'***************************************************************
txtFilePath = "C:\VBS\opp_s_to_txt\code.txt"
If (objFSO.FileExists(txtFilePath)) = 0 Then
  objFSO.CreateTextFile(txtFilePath)
End If
set objFile = objFSO.OpenTextFile(txtFilePath,forWriting, true)
for rindex = 0 to index-1 step 1
   set srcFile = objFSO.OpenTextFile(cFilePath & sfile(rindex),forReading)
  objFile.writeline "#####################################################"
  objFile.writeline "#    File: " & sfile(rindex)
  objFile.writeline "#####################################################"
  textcontent = srcFile.ReadALl
  objFile.write textcontent
  objFile.writeblanklines 2
  srcFile.Close
next
objFile.Close

set index = nothing
set rindex = nothing

本文出自 “海阔天空” 博客，谢绝转载！