如下代码：我想实现选取到文件后，让选取的文件在程序文件夹（根目录）里生成一份（有点复制一份的意思），在下面要加什么代码才能实现呢？谢谢！
On Error Resume Next
    cdlTest.CancelError = True
    cdlTest.DialogTitle = "打开照片"
    cdlTest.FileName = App.Path
    cdlTest.DefaultExt = "bmp图像(.bmp)|*.bmp"
    cdlTest.Filter = "bmp图像(.bmp)|*.bmp|JPEG图像(.JPG)|*.JPG|GIF图像(.GIF)|*.GIF|所有文件|*.*"
    cdlTest.ShowOpen

首先谢谢版主。我再问一个问题，VB如何将文件重新命名文件，不管是什么样的后缀名，只需改一下名字就可以了。谢谢！

[ 本帖最后由 事业男儿 于 2014-5-5 20:51 编辑 ]

VB如何将文件重新命名文件，不管是什么样的后缀名，只需改一下名字就可以了。谢谢！我用来修改视频的名字，因为不知道
使用者上传得什么类型的视频

[ 本帖最后由 事业男儿 于 2014-5-5 20:54 编辑 ]

我想做一个带有视频播放器的电子通讯录，因为不知道操作者上传得什么类型的视频，上传后根据人物名称自动命名视频文件，如张山.mp4，问题来了。
 1、操作者上传的文件类型可能很多，有MP4  MPG  WAV  3GP  等，软件在命名的时候自动保存为什么样类型的视频呢？
 2、在播放的时候又怎么知道什么类型播放，难道先要读取要移动文件的类型吗？

3.只有让操作者上传规定的MP4，并且事先命名。但是这个只有电脑基础强
一点的人才能做到，不是很会玩电脑的人就没有办法。所以考虑前2条的做法。

希望高手给个代码  或者换一种思路去走。谢谢

麻烦八楼的版主给一个命名视频文件的代码呢，谢谢！  如 20140506.mp3  直接改为 张三  前提是不知道什么类型  直接改名【就是只改文件名，后缀名不改】 但是又不会损坏文件。               不用以下方式
name 原文件名（含路径全名） as 新文件名（含路径全名）
1：name "c:\aaa.jpg" as "c:\bbb.jpg"  把c盘根目录下文件aaa.jpg重命名为bbb.jpg
2：name "c:\aaa.jpg" as "d:\aaa.jpg"  把c盘根目录下文件aaa.jpg移动到d盘根目录下

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

你觉得这样可以吗？

还是出错

版主还是出错。只有这样才可以 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 编辑 ]