VB知识库

  OpenTextFile(f, 1, False)。ReadLine)'得到**行

'以下剔除不能作文件名的特殊字符

strNewName = Replace(strNewName, "\", "")

strNewName = Replace(strNewName, "/", "")

strNewName = Replace(strNewName, ":", "")

strNewName = Replace(strNewName, "*", "")

strNewName = Replace(strNewName, "?", "")

strNewName = Replace(strNewName, """", "")

strNewName = Replace(strNewName, ">", "")

strNewName = Replace(strNewName, "  txt"

i = i + 1

End if

Next

Msgbox i & "个文件改名完成！（忽略重名）"

Set fs = Nothing

Set fso = Nothing

用Bat执行命令，必需要等上一个命令执行完后才能执行下一个命令，也就是说你关闭了上一个程序后下一个才会启动。