Question

VB获取相对路劲文件夹内的文件

想用VB来播放一个文件夹里面的mp4 或者MP3 . 在窗体上有一个text1 有一个WindowsMediaPlayer1 还有一个 Command1 当我点击按钮 . 根据text1 内的名字(如王三）去播放视频文件或者音频文件。 播放链接是这样WindowsMediaPlayer1.URL =App.Path & “\sp \text1.text & (?) ”

.问题如下：
1、因为不知道 这个 sp的文件夹里面是（王三. mp4 ） 还是 （王三.mp3 ）。注意在这SP文件夹里有很多用人名命名的MP3或者MP4 所以跟text1来读取播放路劲就涉及到只能读到人名哪儿，就差王三的后缀名.mp4或者.mp3
2.不用打开选择泽的方式去读，而是直接按一下按钮根据窗体上text1.text显示的人名去播放。
3、有人提议如下代码 但是没有成功过

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

Answer 1

1. 使用Dir函数代码直接获取指定文件夹SP\的所有视频或音频文件（保存为“文件数组”）

2. 针对text1的文字，与“文件数组”做instr函数模糊比对或直接精确比对，产生“播放数组”

3. 如果“播放数组”不为空，让控件对“播放数组”取值轮替播放。

追问

我初学vb,能否写个代码.

追答

下载MSDN Library 这是初学者必备的帮助文件，学VB不看MSDN内容，那可以不用学了的。
那帮助文件里有Dir函数说明，取文件夹所有文件的示例。也有instr函数模糊比对的写法格式。

对于初学者，我不想花时间写，这是剥夺你学习基础的机会。但是我很乐意依照你往后的学习代码给于修改的建议。

追问

就是遇到问题了才来问，我业余的在上班

追答

http://pan.baidu.com/s/1hqiMuUS
这是我的网盘，去下载MSDN Library 6.0吧，里面的示例很丰富。VB初学者必备的电子书。