联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
set fso=createobject("scripting.filesystemobject") set folder=fso.getfolder(".") for each file in folder.files if ubound(split(file.name,"."))=2 and instr(file.name,".h")<>0 then file.name=replace(file.name,".h","_h",1,1) next msgbox "操作完成",4096,"提示"