VB能否把文件夹中的文件名称自动生成XML文件的内容?

在D盘根目录下有一个名为"XML资料"的文件夹,文件夹中有存放有格式为WAV的音频文件,我希望用VB把这些音频文件的文件名称自动生成一个名为XML资料.XML的文件.该文件<P></P>之间的内容为音频文件的文件名称.
例如:文件夹中存放有"你那里下雪了吗,青藏高原,天路,其实我很在乎你"的WAV格式的文件,希望用VB能自动生成下面的XML格式的文件.
 <?xml version="1.0" encoding="gbk" ?> 
- <GRAMMAR LANGID="804">
- <DEFINE>
  <ID NAME="RID_simple" VAL="1" /> 
  </DEFINE>
- <RULE ID="RID_simple" TOPLEVEL="ACTIVE">
- <L>
  <p>你那里下雪了吗</p> 
  <p>青藏高原</p> 
  <p>天路</p> 
  <p>其实我很在乎你</p>
  </L>
  </RULE>
  </GRAMMAR>
抱歉,没分了.

补充：VB ,  多媒体