【www.gdgbn.com--面向对象编程】
"参数:目录名(相对路径) ,对象
Public Function ShowFolderList(folderUrl,tag,listType)
Dim f,f1,fc,i,temp,disabledtf
On Error Resume Next
temp = Server.MapPath(folderUrl)
If oFso.FolderExists(temp) Then
Set f = oFso.GetFolder(temp)
Set fc = f.SubFolders
If listType = "list" Then
disabledtf = "disabled"
Else
disabledtf = ""
End If
ShowFolderList = ""& Chr(13)
ShowFolderList = ShowFolderList &""& Chr(13)
ShowFolderList = ShowFolderList &""& Chr(13)
ShowFolderList = ShowFolderList &"目录名/文件名"& Chr(13)
ShowFolderList = ShowFolderList &"大小"& Chr(13)
ShowFolderList = ShowFolderList &""& Chr(13)
i = 0
For Each f1 in fc
ShowFolderList = ShowFolderList &""& Chr(13)
ShowFolderList = ShowFolderList &""& Chr(13)
ShowFolderList = ShowFolderList &""& f1.name &""& Chr(13)
ShowFolderList = ShowFolderList &""& GetfolderInfo(folderUrl &"/"& f1.name)(0) &""& Chr(13)
ShowFolderList = ShowFolderList &""& Chr(13)
i = i + 1
Next
ShowFolderList = ShowFolderList &""& Chr(13)
Else
ShowFolderList = "-"
End if
If Err <> 0 Then Err.Clear
Set f = Nothing
Set fc = nothing
End Function