av网站免费线看精品_国产做a爱视频免费不_深爱激情网开心五月天_伊人五月天在线视频网
 
慧網(wǎng)動(dòng)態(tài) 常見問題 網(wǎng)絡(luò)營銷 網(wǎng)站設(shè)計(jì) 行業(yè)動(dòng)態(tài) 網(wǎng)站優(yōu)化
使用FSO按文件大小瀏覽文件目錄并進(jìn)行刪除操作
發(fā)布時(shí)間：2005-03-18　　　瀏覽次數(shù)：1230674
[ 來源：動(dòng)網(wǎng) ] =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 "輸入錯(cuò)誤！"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 "修改時(shí)間" & vbcrlfResponse.Write "刪除" & vbcrlfResponse.Write "" & vbcrlfintFlag=ListFolderFiles(strPath,CDbl(intFileSize),0)Response.Write "總計(jì)："&formatNumber((intFlag-1)/(1024^2),2) &" MB" & vbcrlfResponse.Write "" & vbcrlf%> 來源：http://edu.chinaz.com
立即預(yù)約