请个位帮帮忙,看看这段代码有神吗问题啊 老是溢出错误怎么办?
Private Sub wmp1_OpenStateChange(ByVal NewState As Long)Form1.wmp1.currentPlaylist.Clear
Dim f As Long
MyPath = "D:\酷我缓存\*.wma" ' 指定路径。
myname = Dir(MyPath, vbDirectory) ' 找寻第一项。
Do While myname <> "" ' 开始循环。
' 跳过当前的目录及上层目录。
'MsgBox myname
' Form1.wmp1.currentPlaylist.appendItem Form1.wmp1.newMedia("D:\酷我缓存\%E4%B8%80%E5%89%AA%E6%A2%85.wmp")
Form1.wmp1.currentPlaylist.appendItem Form1.wmp1.newMedia("D:\酷我缓存\" & myname)
myname = Dir ' 查找下一个目录。
Loop
wmp1.Controls.play
End Sub
Private Sub wmp1_OpenStateChange(ByVal NewState As Long)Form1.wmp1.currentPlaylist.Clear
Dim f As Long
MyPath = "D:\酷我缓存\*.wma" ' 指定路径。
myname = Dir(MyPath, vbDirectory) ' 找寻第一项。
Do While myname <> "" ' 开始循环。
' 跳过当前的目录及上层目录。
'MsgBox myname
' Form1.wmp1.currentPlaylist.appendItem Form1.wmp1.newMedia("D:\酷我缓存\%E4%B8%80%E5%89%AA%E6%A2%85.wmp")
Form1.wmp1.currentPlaylist.appendItem Form1.wmp1.newMedia("D:\酷我缓存\" & myname)
myname = Dir ' 查找下一个目录。
Loop
wmp1.Controls.play
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货