呵呵 我就是在别的地方看到的最后要结帖的 所以来把我自己的结了
还有把我的VBS帖出来吧 写的乱 看的时候需要耐心- Set fs = CreateObject("Scripting.FileSystemObject")
- Set file = fs.OpenTextFile("d:\1.txt", 1, false)
- Set fs1 = CreateObject("Scripting.FileSystemObject")
- Set file1 = fs1.OpenTextFile("d:\2.txt", 1, false)
- Set fs2 = CreateObject("Scripting.FileSystemObject")
- Set file2 = fs2.OpenTextFile("d:\3.txt", 8, 1)
- while not file.AtEndofStream
- readfile=file.readline
- readfile1=file1.readline
- file2.write "rename d:\1\"& readfile1 & " " & readfile &chr(13)&chr(10)
- wend
- file.close
- set fs=nothing
- file1.close
- set fs1=nothing
- file2.close
- set fs2=nothing
复制代码
|