[筆記]ASP印出檔案列表(包含子資料夾)的程式

找很久,也終於給我找到了
這可是很多書上沒有寫的喔

FileSystemObject的資料本來就比較少
反正都變成ASP.net了,這種驚訝應該不是很多人能體會吧
因為這些都是ASP.net的基本配備=  =

傳入絕對路徑,會傳回整理過的檔案列表(包含子資料夾)

有興趣的人煩請看程式碼更動,謝謝。

——————————————————————————

<

p>’顯示檔案列表  
Function ShowFileList(folderspec)  
Dim f, f1, fc, s  
Set fso = CreateObject(“Scripting.FileSystemObject”)
If (fso.FolderExists(folderspec)) Then
Set f = fso.GetFolder(folderspec)  

<

p>Set fc = f.SubFolders
For Each f1 in fc  
s = s &”&lt;dir&gt;”& f1.name  
s = s & “<br>”  
Next  

<

p>Set fc = f.Files  
For Each f2 in fc  
s = s & f2.name  
s = s & “<br>”  
Next  
ShowFileList = s  
Else  
ShowFileList = -1  
End if  
End Function