[ 来源：动网 ] =intFileSize thenResponse.Write "" & vbcrlfResponse.Write "" & replace(strNullTran(strSubFiles),strNullTran(strSubFiles.Name),""&strNullTran(strSubFiles.Name)&"") & "" & vbcrlfResponse.Write ""& strNullTran(FormatNumber(strSubFiles.size /(1024^2),2)) &" MB" & vbcrlfResponse.Write "" & strNullTran(strSubFiles.type) & "" & vbcrlfResponse.Write "" & strNullTran(strSubFiles.datelastmodified) & "" & vbcrlfResponse.Write "" & vbcrlfResponse.Write "" & vbcrlfintFlag=intFlag+strSubFiles.sizeend ifnextfor each strSubFolders in objFdir.SubFoldersif intFlag=0 then intFlag=1ListFolderFiles strSubFolders,intFileSize,intFlagnextelseResponse.Write "输入错误！"end ifListFolderFiles=intFlagend functionfunction strNullTran(str)if isnull(str) or str="" thenstrNullTran=" "elsestrNullTran=strend ifend function Response.Write "" & vbcrlfResponse.Write "" & vbcrlfResponse.Write "文件名及路径" & vbcrlfResponse.Write "大小" & vbcrlfResponse.Write "类别" & vbcrlfResponse.Write "修改时间" & vbcrlfResponse.Write "删除" & vbcrlfResponse.Write "" & vbcrlfintFlag=ListFolderFiles(strPath,CDbl(intFileSize),0)Response.Write "总计："&formatNumber((intFlag-1)/(1024^2),2) &" MB" & vbcrlfResponse.Write "" & vbcrlf%> 来源：http://edu.chinaz.com