嘻嘻，6楼的版主已经给出代码了，我都看懂了，楼主没看到？
name 20140506.mp3 as 张三

（没看到你后来的修改）不用name函数，好像还可以调用dos命令改文件名的，好像是shell "ren 20140506.mp3  张三"


[ 本帖最后由 xzlxzlxzl 于 2014-5-6 11:25 编辑 ]

你觉得这样可以吗？

字符串要用引号！

还是出错

要给全路径，比如文件20140506.mp3 是在d:\music里，则是name "d:\music\20140506.mp3" as "d:\music\张三",如果觉得输入全路径麻烦，可以先更改默认路径名，代码如下
chdir "d:\music"
name "20140506.mp3" as "张三"

调用dos命令
shell "cmd /c ren d:\music\20140506.mp3 张三"

[ 本帖最后由 lowxiong 于 2014-5-6 13:00 编辑 ]

版主还是出错。只有这样才可以 shell "cmd /c ren d:\music\20140506.mp3  张三.mp3" 。只有张三 后面加.MP3这样才可以，与6楼一样的了。如果这样就违背了只改文件名，不改后缀名的方法。
但如果先识别是什么后缀名，然后在再改呢。这些问题怎么这么难哦。

[ 本帖最后由 事业男儿 于 2014-5-6 13:21 编辑 ]

怎么可能，我执行的一切正常，除非你用的事外星系统

我执行后与你一样，问题出在点击张三找不到打开方式。难道系统有问题。为了保证在所有电脑上使用 我把电脑上的暴风影音 还有其它的播放器都卸载了  保留了XP统统自带的播放器。

[ 本帖最后由 事业男儿 于 2014-5-6 14:18 编辑 ]

不知道你要干什么。
你一方面需要去掉媒体文件的后缀名，让人家看不出你的文件类型，你又希望系统能自动找应用程序打开你改掉后缀名的文件，这很矛盾。

不是  版主理解错误   我主要是想实现下面
On Error Resume Next
    cdlTest.CancelError = True
    cdlTest.DialogTitle = "上传视频"
    cdlTest.FileName = App.Path
    cdlTest.DefaultExt = "MP4(.MP4)|*.MP4"
    cdlTest.Filter = "MP4(.MP4)|*.MP4|mpg(.mpg)|*.mpg|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
文件复制到了指定的文件夹了  
想把文件命名为 Text1.text 里面的名字  比如 Text1.text 显示为张三   就把多媒体视频改为张三这个名字，因为不知道使用者会上传一些什么类型的文件
所以要求只改文件名，不改后缀名，就是这个意思。各位版主辛苦了，再次对你们说声谢谢。

[ 本帖最后由 事业男儿 于 2014-5-6 17:59 编辑 ]