【VBS】ドラッグ&ドロップで結合ファイルを作成する

下のコードをテキストファイルにコピーして「MargeTextFile.vbs」とでも名前を付けて保存してください。

このvbsファイルに複数選択したテキストファイルをドラッグ&ドロップするとマージされたファイル「Marge.txt」ができます。

MargeTextFile.vbs

if WScript.Arguments.Count>1 Then
  Dim FSO
  Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
  Dim sMarge
  For i=0 To WScript.Arguments.Count-1
    Dim oArg
    oArg=WScript.Arguments.Item(i)
    If FSO.FileExists(oArg) Then
      Dim oFs
      Set oFs=FSO.GetFile(oArg).OpenAsTextStream
      sMarge=sMarge & oFs.ReadAll
    End If
  Next
  Dim oMrg
  Set oMrg=FSO.OpenTextFile(fso.getParentFolderName(WScript.ScriptFullName) & "\Marge.txt",2,True)
  oMrg.Write sMarge
  oMrg.Close
End If

UTF-8版
MargeTextFileforUTF8.vbs

if WScript.Arguments.Count>1 Then
  Dim FSO
  Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
  Dim sMarge
  For i=0 To WScript.Arguments.Count-1
    Dim oArg
    oArg=WScript.Arguments.Item(i)
    If FSO.FileExists(oArg) Then
      Dim oFs
      Set oFs=CreateObject("ADODB.Stream")
      oFs.Type=2
      oFs.Charset="UTF-8"
      oFs.Open
      oFs.LoadFromFile oArg
      sMarge=sMarge & oFs.ReadText
      oFs.Close
    End If
  Next
  Dim oMrg
  Set oMrg=CreateObject("ADODB.Stream")
  oMrg.Type=2
  oMrg.Charset="UTF-8"
  oMrg.Open
  oMrg.WriteText sMarge
  oMrg.SaveToFile FSO.getParentFolderName(WScript.ScriptFullName) & "\Marge.txt", 2
  oMrg.Close
End If