想写一个批量读取文件名，然后入库的程序，大家给指点一下
这样，我想把硬盘里的所有歌曲名字，读取后批量的添加到数据库里，一点思路都没有，大家给指点一下。 问题点数：50、回复次数：5Top
1 楼moodboy1982（老鹰）回复于 2005-11-27 11:24:29 得分 2
那就用循环语句吧。Top
2 楼ytzz（冲星中！多给分！谢谢！）回复于 2005-11-27 11:24:59 得分 5
用FSO读扫描硬盘的文件的后缀名,如果是.mp3则将文件名及路径写库Top
3 楼boyd1985（波伊德乐园->http://www.boyd.cn）回复于 2005-11-27 11:27:05 得分 30
用FSO直接获取文件名，
sub ListFolderContents(path)
dim fs, folder, file, item,File2,FSO
set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)
for each item in folder.Files
if right(item.Name,4)<>".mp3" then '显示所有扩展名为mp3的文件
Set fso = CreateObject("Scripting.FileSystemObject")
'fso.DeleteFile(filepath&"\"&item.Name)'这里是删除操作，没有删除，用来参考FSO操作文件功能
response.write "filepath%"\"&item.Name'得出文件名，再写库吧，这里你自己来写一下就可以了。
end if
next
end sub
后面就是调用这个SUB了：
call ListFolderContents("e:\mp3")'加上文件路径Top
4 楼winnerfast_gg（gym）回复于 2005-11-27 11:27:49 得分 3
用fsoTop
5 楼snail4up（不经意21年）回复于 2005-11-27 13:27:38 得分 10
楼上的明显没有遍历，使用FSO做一个树的遍历算法，然后象楼上那样过滤出后缀为.mp3的文件就可以了。遍历的时候可以使用subfolder来往下找，用parentfolder来回到上级目录Top
