版主才帮我解决问题如下
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 编辑 ]

建议楼主不要动不动就提问且表述不清，很多问题都要在独立思考的情况下，穷尽所有方法都不能解决时再问，一定对自己有提高的。纵观你的几个问题，对于稍微熟悉vb常用函数和编程方法的，根本就不算问题。
Private Sub Label18_Click()
  dim a as string
  a=dir(App.Path & "\sp" & "\" & Text(0) & ".*")
  if a<>"" then WindowsMediaPlayer1.URL = a
End Sub


[ 本帖最后由 lowxiong 于 2014-5-7 07:37 编辑 ]

就是就是。

对了，lowxiong 兄，
  a=dir(App.Path & "\sp" & "\" & Text(0) & ".*")
这句有些时候的返回值没有 路径，需要测试一下，决定是否把路径再增加进去。

嗯，风兄说的是，这种情况下获得的文件是当前默认目录下的文件，不添加完整路径一样能使用，如非要添加也必须从curdir中获得，从app.path中获得路径会出错（应用程序路径不一定是当前默认路径）

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

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

我也没有专业学过，专业学编程的不会对vb太熟悉的，都在c或java里转，如果不熟悉程序设计，建议学object-c，都是为手持终端编程的（平板、手机），相当有前途，进入vb了，就很难转出来了，快餐文化还是有点害人！

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

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

热情高涨 跪求答案

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

WindowsMediaPlayer1.uimode="none"可以只留下播放窗口，需要自己用按钮控制播放停止，至于你测试没反应，你自己仔细单步调试肯定找的到原因