ASP如何获取系统文件夹路径? 就是文本框的内容是文件夹路径,此路径是从后面点浏览系统而获得的
'/** ' * 遍历目录所目录(包括目录) ' * @params string sPath - 初始路径 ' * @params bool bAll - 否遍历目录 ' */ Function Traversal(ByVal sPath, ByVal bAll) Dim I Dim oKey, pKey Dim nItem, nPath Dim oDic, oItems, oArray Set oDic = Server。 CreateObject("Scripting。Dictionary") For Each nItem In System。IO。FSO。GetFol...全部
'/** ' * 遍历目录所目录(包括目录) ' * @params string sPath - 初始路径 ' * @params bool bAll - 否遍历目录 ' */ Function Traversal(ByVal sPath, ByVal bAll) Dim I Dim oKey, pKey Dim nItem, nPath Dim oDic, oItems, oArray Set oDic = Server。
CreateObject("Scripting。Dictionary") For Each nItem In System。IO。FSO。GetFolder(Server。MapPath(sPath))。
SubFolders '调用FSO nPath = sPath & nItem。Name & "/" oKey = System。Security。MD5(nPath, 32) 'MD5加密 If Not oDic。
Exists(oKey) Then oDic。Add oKey, nPath If StrComp(bAll, "True", 1) = 0 Or CBool(System。Text。ToNumeric(bAll)) = True Then oArray = Traversal(nPath, True) '递归 For I=0 To UBound(oArray) pKey = System。
Security。MD5(oArray(I), 32) If Not oDic。Exists(pKey) Then oDic。Add pKey, oArray(I) Next End If Next oItems = oDic。
Items Set oDic = Nothing Traversal = oItems End Function 函数许用参考。收起