vbs表白代码，欢迎使用 部分代码： '声明变量 Dim txt, mypath, sentences '第一步，获取当前的文件路径 '解决了手动改名的问题 mypath = CreateObject("Wscr ipt.Shell").CurrentDirectory