站点目录下有：
文件夹 123
文件夹 456

文件夹123下有文件：
A.RAR
B.RAR
C.RAR
文件夹456下有文件：
F.RAR
G.ZIP
H.RAR


我想用FSO读取文件夹123 456两个名添到数据库里,还要同时把这两个目录下的文件的文件名读出来添加另一个表里.
如何实现?

请朋友帮忙!

[此贴子已经被作者于2006-7-18 12:21:50编辑过]

给下面代码你自已看看吧,用文件和文件夹的集合循环读取,
至于写入数据库,你就自已写了!

<%
fpath="c:\" '设置查看路径
Dim fso, f, f1, fc, s, sf
Set fso = CreateObject("Scripting.FileSystemObject") '创建FSO对像
Set f = fso.GetFolder(fpath)
Set fc = f.Files '文件集合
set sf = f.SubFolders '目录集合
asdf=f.ShortPath

response.write "<font size=2 color=#ff0000>目录列表:</font><br>"

For Each f1 in sf '显示文件夹
z = f1.name
response.write z 'z为文件夹名字,你可在此处保存到数据库
response.write "<br>"
Next

response.write "<font size=2 color=#ff0000>文件列表:</font><br>"
For Each f1 in fc '显示文件
s = f1.name
response.write s 's为文件夹名字,你可在此处保存到数据库
response.write "<br>"
Next

%>