使用VBS把ts文件合并

1、电脑上面新建一个文本文档，然后在新建的文本文档里边输入以下程序代码并保存、关闭。（不要在待合成的ts视频文件夹里面新建，以免后续的vbs脚本程序误把该文件合并）。

Dim i, na, str1, str2

On Error Resume Next   '忽略运行过程中可能出现的错误

str1 = ""              'str1、str2初始值置为空值

str2 = ""

i = 0                  'i的初始值置为0

Set fs = CreateObject("Scripting.FileSystemObject")  '创建并返回对计算机系统文件

Set fo = fs.Getfolder("D:\我的视频1\") '定义文件夹，“我的视频1”为D盘下边的文件夹

For Each fil In fo.Files               '获取文件夹里面所有的文件

  na = fil.Name                        '获取文件名称

  i = i + 1       '每扫描一个文件，i自动加1

  If i = 1 Then   'i为1，即扫描到第一个文件时，则

  str1 = na       '把文件名赋给str1

  End If

  If i > 1 Then   'i大于1，即扫描到两个及以上的文件时，则

  str1 = str1 & "+" & na  '在原有名称的基础上拼接“+”和现在的名称

  End If

Next

str2 = "copy /b D:\我的视频1\" & str1 & " D:\我的视频1\我的视频.ts"

'cmd命令代码拼接，str1为所有ts文件名称拼接

Set fi = fs.CreateTextFile("d:\我的视频1\视频合成命令.bat", True)

'在D盘"我的视频2"里边创建 视频合成命令.bat

fi.WriteLine (str2)  '把命令代码写入文件里边

fi.Close  '关闭文件

MsgBox "bat命令已经生成，请到“d:\我的视频1”查看！"

2、重命名新建的文本文档，同时把后缀名“.txt”改成“.vbs”。

3、双击已经重命名的vbs文件，打开待合成的ts视频文件夹，将会看到已经生成的bat命令。

4、如果要查看已经生成的bat命令代码，可以在bat文件上面单击右键，选择“编辑”即可看到里面的代码。

5、双击已经生成的bat命令，ts视频文件合成完成。

6、注意事项（1）：

合成的ts文件要注意其命名顺序，待合成的ts视频文件较多时，不能直接以1.ts、2.ts、3.ts……10.ts、11.ts的顺序命名，应当在其前面多加一个0，否则将会在生成bat命令里边出现顺序错误。

7、注意事项（2）：

生成新的ts视频合并文件应当选择在待合成的原文件夹里边，否则合并的ts视频文件不完全（只是其中一个）。

8、注意事项（3）：

如果要重新合成文件，则需要先把待合成的ts视频文件夹里边已经合成的ts文件、bat命令删除，以免误把这些文件合并进去。