版主才帮我解决问题如下
Private Sub Command1_Click()
On Error Resume Next
    cdlTest.CancelError = True
    cdlTest.DialogTitle = "上传视频"
    cdlTest.FileName = App.Path
    cdlTest.DefaultExt = "mp3(.mp3)|*.mp3"
    cdlTest.Filter = "MP4(.MP4)|*.MP4|mpg(.mpg)|*.mpg|mp3(.mp3)|*.mp3||3gp(.3gp)|*.3gp"
    cdlTest.ShowOpen
Dim a As String, b As String, c As String
a = cdlTest.FileName
If a <> "" Then
  b = IIf(InStrRev(a, ".") > 0, "." & Right(a, Len(a) - InStrRev(a, ".")), "") '获取该文件的扩展名
  If Trim(Text(0)) <> "" Then FileCopy a, App.Path & "\sp" & "\" & Text(0) & b     '如果text1内文字合法则复制并改成需要的文件名
End IfEnd Sub

上传文件是通过了，但是点击测试文件（播放）问题来了，代码如下
Private Sub Label18_Click()
WindowsMediaPlayer1.URL = App.Path & "\sp" & "\" & Text(0) & ".mp3"
End Sub
1、怎么获取后缀名呢，上面红色部分是我有意添加上去，才正常播放的，万一上传的是视频呢？
2.如果在实现第二步复制文件后在命名的时候，用Text(8)把后缀名（ .MP3）往数据库里写，然后再读取出来到 Text(8)
Private Sub Label18_Click()
WindowsMediaPlayer1.URL = App.Path & "\sp" & "\" & Text(0) & "Text(8)"
End Sub
你们看这样行吗？这一切的一切都想实现傻瓜是操作。
还有什么方法呢

求详细的代码，谢谢！

[ 本帖最后由 事业男儿 于 2014-5-7 00:26 编辑 ]

拜托版主  就差最后一步了，谢谢

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

版主刚刚我测试了 怎么没有反应呢。WindowsMediaPlayer1 怎么把下面的播放条去掉呢。麻烦版主一下，我就差这一步了，一个多媒体储存器就完工了。完工后，这个软件8岁-80岁都可以使用，傻瓜是操作，非常方便。

[ 本帖最后由 事业男儿 于 2014-5-7 08:49 编辑 ]

热情高涨 跪求答案

自己再顶一个，如果问题高盛莫测，就让它沉入大海吧

谢谢版主！   播放器的播放条算是解决了  测试的时候要美观一点了。但是我还是播放不出来，没有任何错误提示，好像是没有找到路劲，还是谢谢你从头到尾都帮助我。结贴..............

Private Sub Command1_Click()
Dim a As String
a = Dir(App.Path & "\sp" & "\" & Text1 & ".*")
If a <> "" Then WindowsMediaPlayer1.URL = a
End Sub

我看了一下路劲是 VB的安装路劲，只有生成EXE文件 与多媒体为一个文件夹才可以播放，它怎么就不读取\SP文件夹里面的张三.MP3。
马上0:00 百度很久也无结果，版主怎么改一下呢？本人确实愚钝，累了晚安。

[ 本帖最后由 事业男儿 于 2014-5-7 23:55 编辑 ]

谢谢版主，测试通过