比链芹如说,写入exe同目录吧
If Not System.IO.File("ltlstj.tif") Then
My.Resources.流体流速推荐.tif.Save("ltlstj.tif")
End If
PicPath = Application.StartUpPath &"\ltlstj.tif"
然肆竖后再进行调用
手机写的,难免有错误,不好意思
首先列出目录下的所有MP3文件并赋给某个数组变量,然后再播放。没时间薯升帮樱亩你写,只能说一下方法了 Private Sub Command1_Click() Dim file As String file = Dir("C:\windows\*.mp3") '改成绝对路径,这个变量换成数组的,利用FOR来赋值,得到正确的文件路径后就脊手森再播放就可以了,自己完善一下吧 Do While file <>"" Print file file = Dir Loop End Sub欢迎分享,转载请注明来源:内存溢出
评论列表(0条)