
CODE: [Copy to clipboard]Dim fso, f, f1, fc, foldpath
foldpath = InputBox("请输入路径(相对或绝对)")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(foldpath)
Set fc = f.Files
For Each f1 in fc
f1.name = fso.GetBaseName(f1.name)
Next
MsgBox "修改成功!"
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |