Simone使用VBS把ts文件合并
的有关信息介绍如下：
之前介绍使用bat命令把ts文件合并时，需要手工把文件名一个个输入（如：0.ts+1.ts+2.ts），对于拼接的文件较少倒是没什么，如果文件较多就会显得力不从心。下面就分享一下使用VBS脚本程序把ts文件名拼接并生成bat命令的方法。
81手机m3u8格式转换mp4
6使用VBA批量重命名文件
电脑上面新建一个文本文档，然后在新建的文本文档里边输入以下程序代码并保存、关闭。（不要在待合成的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”查看！"
重命名新建的文本文档，同时把后缀名“.txt”改成“.vbs”。
双击已经重命名的vbs文件，打开待合成的ts视频文件夹，将会看到已经生成的bat命令。
如果要查看已经生成的bat命令代码，可以在bat文件上面单击右键，选择“编辑”即可看到里面的代码。
双击已经生成的bat命令，ts视频文件合成完成。
注意事项（1）：
合成的ts文件要注意其命名顺序，待合成的ts视频文件较多时，不能直接以1.ts、2.ts、3.ts……10.ts、11.ts的顺序命名，应当在其前面多加一个0，否则将会在生成bat命令里边出现顺序错误。
注意事项（2）：
生成新的ts视频合并文件应当选择在待合成的原文件夹里边，否则合并的ts视频文件不完全（只是其中一个）。
注意事项（3）：
如果要重新合成文件，则需要先把待合成的ts视频文件夹里边已经合成的ts文件、bat命令删除，以免误把这些文件合并进去。
