读取文件夹中得文件，并且把该文件转换成固定格式的文本文件（急！！！在线等）

Question

我现在要从客户端的一个文件夹下读取一批文件比如
d:\music   该文件夹中有3个音乐文件101.wav,102.wav,103.wav
现在我要把这三个文件读出来并且要把他们重命名
输出如下的文本文件格式
（旧文件名）+四个空格（tab）+（新文件名）
例如
  101    8925001
  102    8925002
  103    8925003
一一对应
请问高手我如何做啊，

Answer 1

加个filelist控件，设好路径、filter
循环filelist
dim i as integer
open "d:\txt.txt" for input as #1
for i=0 to filelist.listcount-1
   print #1,filelist.list(i)+space(4)+"8925"+format(right(filelist.list(i),1),"000")
next
close #1根据上述要求来的，实际需求可做相应修改