我考虑了一下, 发现我写的那段程序有点缺陷: 如果原文件名中不含扩展名就会出错。Limu的程序也同样存在这样的不足。 现将我修改过的程序张贴如下:
pos=instr(oldfile,".") '取回原文件名中"."的位置,oldfile为原文件名( 全名)
if pos>0 then
filename=left(oldfile,pos-1) 'filename中即原主文件名
else
filename=oldfile '若原文件名无扩展名
end if
之后,你就可以对filename与新扩展名进行&操作,合成新文件名,再用name进行命名了。
dim sOldExt as string,sNewExt as string,sFile as string
sFile="XXX.XXX"
sOldExt=right(sFile,4)
sNewExt=".YYY"
Name sFile as Replace(sFile,SOldExt,sNewExt)