VB如何做到对文件只改文件名不该后缀名

Question

我想做到VB对文件只改文件名不该后缀名，这个代码要怎样实现，如 某个文件夹里有个66.mp3 文件 我要直接把他改为张三 前提是不知道文件夹里的名字 只知道是一个MP3 把这个功能添加到下面的代码中
On Error Resume Next
cdlTest.CancelError = True
cdlTest.DialogTitle = "视频文件"
cdlTest.FileName = App.Path
cdlTest.DefaultExt = "mp4视频(.MP4)|*.MP4"
cdlTest.Filter = "mp4视频(.MP4)|*.MP4|wav视频(.wav)|*.wav|3gp视频(.3gp)|*.3gp|所有文件|*.*"
cdlTest.ShowOpen
dim a as string,b as string
a=cdlTest.filename
if a<>"" then
b=app.path & "\备份" & right(a,len(a)-instrrev(a,"\")) '得到要备份到当前程序目录下的文件名
filecopy a,b '复制该文件
endif
文件已经复制到指定的文件夹了
这里如何根据VB控件里的（Text1.text）的内容来 命名这个文件。谢谢在线等 好希望实现这个功能。
反正就是只改文件名不改后缀名

Answer 1

保存后缀名，修改文件名后把原先的后缀名再附加上去

追问

能否给个代码

追答

将带路径的文件名拆分成3部分：路径+文件名+后缀名，修改文件名后在组合起来：
dim c as string
dim strPath as string,strFileName as string, strSuffix as string

c=cdlTest.FileTitle '直接获取不带路径的文件名（包括后缀）
strPath = Mid(a, 1, InStrRev(a, "\"))
strFileName = Mid(c, 1, InStrRev(c, ".") - 1)
strSuffix = Mid(c,InstrRev(c,".")
‘修改文件名
strFileName= xxx
’组成新的文件名
b=strpath & strFileName & strSuffix

追问

这里怎么出错呢？

追答

是不是代码不全呢？有错误你把错误提示一起发上来。
把你的代码也一起加上去：

cdlTest.CancelError = True
cdlTest.DialogTitle = "视频文件"
cdlTest.FileName = App.Path
cdlTest.DefaultExt = "mp4视频(.MP4)|*.MP4"
cdlTest.Filter = "mp4视频(.MP4)|*.MP4|wav视频(.wav)|*.wav|3gp视频(.3gp)|*.3gp|所有文件|*.*"
cdlTest.ShowOpen
dim a as string,b as string
a=cdlTest.filename

dim c as string
dim strPath as string,strFileName as string, strSuffix as string

c=cdlTest.FileTitle '直接获取不带路径的文件名（包括后缀）
strPath = Mid(a, 1, InStrRev(a, "\"))
strFileName = Mid(c, 1, InStrRev(c, ".") - 1)
strSuffix = Mid(c,InstrRev(c,".")
‘修改文件名
strFileName= xxx
’组成新的文件名
b=strpath & strFileName & strSuffix

还有问题可以联系企鹅6371439晚上在线