我将路径保存在SQL中类型是path varchar 100
这是其中一个保存在ＳＱＬ中的路径 D:\后来.mp3
可当我用windowsmedia 播放时他就会提示＂试图播放的文件的扩展名(.)与文件格式不匹配"
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
str2 = List1.Text
i = Len(str2)
For j = 1 To i
s = Mid(str2, j, 1)
str1 = str1 & s
If s = "#" Then
str1 = ""
End If
WP1.URL = str1＇就这里出现的错误，怎样改正呢?
Next
End If

msgbox str1
看一下..文件全名.

用text1.text查看了是 D:\后来.mp3 他提示的是.这有错
是用shellexecute这语句执行吗?

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

如果用这个API函数来播放 当然可以 它会启动默认的播放器播放该音乐

我在几本书上都没找到shellexecute能给我个例子吗

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
ShellExecute Me.hwnd, vbNullString, "http://www.bc-cn.net", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

'运行程序 IE浏览器(默认的浏览器)将自动打开“编程论坛”

我检查出来了,是SQL里的"D:\后来.mp3" 这个"."这有问题 是不是SQL只能保存路径,不能保存文件名

我用这句可以播放ShellExecute Me.hwnd, vbNullString, "D:\后来.mp3", vbNullString, "C:\", SW_SHOWNORMAL
但他并没有用控件wp1,而是另外打开了windowsmedia播放
当我用ShellExecute Me.wp1, vbNullString, "D:\后来.mp3", vbNullString, "C:\", SW_SHOWNORMAL
他就提示"对象不支持该属性或方法"