Question

请问个VBS更改文件名的问题~~~

strComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")Set FileList = objWMIService.ExecQuery _ ("ASSOCIATORS OF {Win32_Directory.Name='e:\test'} Where " _ & "ResultClass = CIM_DataFile")For Each objFile In FileList for a = 01 to 22 strNewName = objFile.Drive & objFile.Path & a & "." & "txt" errResult = objFile.Rename(strNewName) Nextnext 这段代码 运行后提示找不着 出错在这行 errResult = objFile.Rename(strNewName) 把第2个for...next 去掉就可以用 可是那样就达不到目的了 我该怎么改 麻烦会的告诉下 谢谢了

Answer 1

这都是微软官方的脚本范例去看看把 有具体的阐明 filesystemｏｂｊｅｃｔ 我不晓得该怎么获取E:\test 里的所有文件名VBS我都没学过 只能根据范例脚本 稍微修改修改而已麻烦会的告诉下

Answer 2

程序流程很容易看懂 发现很多语言大同小异 只不过功能略有不同

Answer 3

改文件名为何要用WMI用FileSystemObject不好吗?