也許比較簡單的問題﹗﹗﹗請大蝦指教﹗

[sansaolu]

本人想做一網頁﹕左邊可以顯示目前本機上某一指定目錄下所有文件夾﹐如﹕

Test ----a
|----b _______D...
|----c----|______E...

請問如何作這個Tree ???

謝謝

[sansaolu]

沒人理我嗎?

[inanition]

fso对象+递归.

[flying310]

文件列表呀，用fso的文件夹文件操作函数就可以了。

[ygjwjj]

FSO+目录树;
树型目录在本版有很多例子,参考下.

[sansaolu]

Fso是什么東西???請舉例好嗎???

[ygjwjj]

Dim fso,f,ctf, AllInfo,StandInfo,Folderspec,fc

Set fso = CreateObject("Scripting.FileSystemObject") '这就是


Folderspec="D:\gwbz\cns\"
Set f = fso.GetFolder(Folderspec)
Set fc = f.Files

Set ctf1 = fso.CreateTextFile("d:\456.txt",True)

For Each f1 in fc
filename=f1.name

Set ctf = fso.OpenTextFile("D:\gwbz\cns\"&filename,,true)

On Error Resume Next
AllInfospace =ctf.Readall

StandInfo=stripHTML(AllInfospace)
'response.Write StandInfo

StanInfo=GetBzNum(AllInfospace)&" |"&GetBzTitle(StandInfo)&" |"&GetBzywmc(AllInfospace)&" |"&Getssrq(StandInfo)&" |"&GetBzys(StandInfo)&" |"&GetBzGG(StandInfo)&" |"&GetCYGX(StandInfo)&" |"&GetBzfl(StandInfo)&" |"&GetFbrq(StandInfo)&" |"&Getbzlx(StandInfo)&" |"&GetBzxg(StandInfo)&" |"&Getbzsp(StandInfo)&" |"&Gettcdw(StandInfo)&" |"&Getqcdw(StandInfo)'&" |"&GetCYGX(AllInfo)&" |"&GetBzys(AllInfo)&" |"&GetBzzy(AllInfo)&" |"&GetBzjg(AllInfo)

StanInfo=StanInfo'&chr(13)
ctf1.Writeline(StanInfo)
if err.number<>0 then
response.Write filename&"<br>"
end if
StanInfo=""
Next

if err.number <> 0 then
response.write "操作出错:" + err.description
end if

ctf1.close
ctf.close
set ctf1=nothing
set ctf=nothing: set fso=nothing
%>

[Starfiremingming]

麻烦大家一下，再ASP中怎么引用对象库ADODB啊？
我的数据库连接总是失败啊，怎么回事呢？
能把详细的操作告诉我么？

[sansaolu]

謝謝 ygjwjj(塔克拉玛干---胡杨林)