
)CODE: [Copy to clipboard]Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "cmd /c ren a.txt b.ini"
CODE: [Copy to clipboard]Set oShell = CreateObject("WScript.Shell")
sCurrentDir = oShell.CurrentDirectory
sFileName = "b.bmp"
sOldName = sCurrentDir & "\" & sFileName
sNewName = sCurrentDir & "\c.bmp"
GetObject("Winmgmts:CIM_DataFile.Name='" & sOldName & "'").ReName sNewName
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |