如下代码：我想实现选取到文件后，让选取的文件在程序文件夹（根目录）里生成一份（有点复制一份的意思），在下面要加什么代码才能实现呢？谢谢！
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

在你的代码后面追加代码如下：
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如何将文件重新命名文件，不管是什么样的后缀名，只需改一下名字就可以了。谢谢！

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

你的这个问题太搞笑了，我都不好意思回答。

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

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

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盘根目录下

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

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

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

先确定播放器可以播放的文件类型，用户上传时判断文件后缀名是否在可播放范围之列
1.只改文件名，后缀名不改( Right(Len(FileName)-Instr(1,FileName,".")) 取后缀名 )
2.根据后缀名判断

能播放什么类型的媒体文件，不是有文件名后缀名决定的，而是由系统安装了什么类型的解码器决定的。只要安装了相应的视音频解码器，你就是向媒体播放器提供一个无后缀名的文件也一样能播放。vb使用mediaplayer控件可以播放各种类型的本地或来自网络的媒体文件（对swf和fla的支持欠佳），可以就像使用傻瓜相机一样，方便好用灵活。

麻烦八楼的版主给一个命名视频文件的代码呢，谢谢！  如 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 编辑 ]