只能用三方工具。
或vbs- fo = "E:\文件目录"
- fl = "列表文件" '为简便起见,不要把列表文件与其他文件放在同一目录
- set fso = CreateObject("Scripting.FileSystemObject")
- s = fso.OpenTextFile(fl).ReadAll
- for each f in fso.GetFolder(fo).Files
- s = Replace(s, f.OpenAsTextStream().ReadAll, String(5,vbCrLf), 1)
- next
- fso.OpenTextFile("left.txt",2,true).Write s
复制代码
|