asp 显示目录存在时显示此目录下的所有子目录

作者:袖梨 2022-07-02

 '参数:目录名(相对路径) ,对象
 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 &""& Chr(13)
    ShowFolderList = ShowFolderList &""& Chr(13)
    ShowFolderList = ShowFolderList &""& Chr(13)
    i = i + 1
   Next
   ShowFolderList = ShowFolderList &"
javascript教程:selectAllCheckBox('path',this.id);checkDisabled('button',getValueList('input'));"" "& disabledtf &" />目录名/文件名大小
"& f1.name &""& GetfolderInfo(folderUrl &"/"& f1.name)(0) &"
"& Chr(13)
  Else
   ShowFolderList = "-"
  End if
  If Err <> 0 Then Err.Clear
  Set f = Nothing
  Set fc = nothing
 End Function

相关文章

精彩推荐