Question

怎么用VB编写搜索指定文件夹下的指定拓展名，并提取出来

问题问得不好额应该是怎么用VB编写一个程序，打入文件名字中一个关键词后就可以搜索指定文件夹下的该拓展名文件。复制个文件我会的额

Answer 1

Private Sub Command1_Click()
mpath$ = "E:\BackGroundMusic\" 'Your path
mext$ = InputBox("扩展名:")
d$ = Dir(mpath & "*." & mext)
Do While d <> ""
Debug.Print d
d = Dir
Loop

End Sub