
CODE: [Copy to clipboard]不知道是哪位高手写的code,以前保存在我的硬盘里,有些我看不懂,现在我把它贴出来strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFileList = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='C:\Logs'} Where " _
& "ResultClass = CIM_DataFile")
For Each objFile In colFileList
strNewName = objFile.Drive & objFile.Path & "pl-" & _
objFile.FileName & "." & objFile.Extension
errResult = objFile.Rename(strNewName)
Next
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |