【www.gdgbn.com--Action】

Dim Fso,FsoFile,FileType,FileSize,FileTime,Path
 Dim Dir
 Action=Trim(Request("Action"))
 Set Fso=Server.CreateObject("Scripting.FileSystemObject")
 IsErr
 If Action = "Del" then
  Call DelAll
 Else
  Dir=Trim(Request.QueryString("Dir"))
  Path = Server.MapPath(UploadFolder) & Dir
  Set FsoFile = Fso.GetFolder(Server.MapPath(UploadFolder))
   FsoFileSize = FsoFile.size "空间大小统计
  Set FsoFile = nothing
  Set FsoFile = Fso.GetFolder(Path)

 Response.Write("") &vbCrlf
 Response.Write("  ") &vbCrlf
 Response.Write("    图片主目录：.."&UploadFileDir&"  空间占用：")
 Response.Write GetFileSize(FsoFileSize)
 Response.Write("  
当前目录：asp" title="返回主目录">.."&Dir&"  占用空间：")
 Response.Write GetFileSize(FsoFile.size)
 Response.Write("  其中包括"&FsoFile.SubFolders.count&"个文件夹；  "&FsoFile.Files.count&"个文件") &vbCrlf
 Response.Write("  ") &vbCrlf
 Response.Write("") &vbCrlf
 Response.Write("

") &vbCrlf
 Response.Write("") &vbCrlf
 Response.Write("  ") &vbCrlf
 Response.Write("    选中") &vbCrlf
 Response.Write("    文件/文件夹名") &vbCrlf
 Response.Write("    类型") &vbCrlf
 Response.Write("    文件大小") &vbCrlf
 Response.Write("    最后修改时间") &vbCrlf
 Response.Write("  ") &vbCrlf

     For Each DirFolder in FsoFile.SubFolders
  FolderName=DirFolder.name
  FolderSize=GetFileSize(DirFolder.size)
  FolderTime=DirFolder.DateLastModified

 Response.Write("  ") &vbCrlf
 Response.Write("    ") &vbCrlf
 Response.Write("     "&FolderName&"") &vbCrlf
 Response.Write("    文件夹") &vbCrlf
 Response.Write("    "&FolderSize&"") &vbCrlf
 Response.Write("    "&FolderTime&"") &vbCrlf
 Response.Write("  ") &vbCrlf

     Next
   For Each DirFiles in FsoFile.Files
  FileName=DirFiles.name
  FileType=GetFileIcon(FileName)
  FileSize=GetFileSize(DirFiles.size)
  FileTime=DirFiles.DateLastModified

 Response.Write("  ") &vbCrlf
 Response.Write("    ") &vbCrlf
 Response.Write("     "&FileName&"") &vbCrlf
 Response.Write("    文件") &vbCrlf
 Response.Write("    "&FileSize&"") &vbCrlf
 Response.Write("    "&FileTime&"") &vbCrlf
 Response.Write("  ") &vbCrlf

     Next
Response.Write("") &vbCrlf
 Response.Write("") &vbCrlf
 Response.Write("  ") &vbCrlf
 Response.Write("    ") &vbCrlf
 Response.Write("      ") &vbCrlf
 Response.Write("  ") &vbCrlf
 Response.Write("") &vbCrlf
 Response.Write("

") &vbCrlf

    End If
 Set FsoFile = nothing
 Set Fso = nothing

本文来源：http://www.gdgbn.com/flash/22228/