国产毛片午夜福利,国产黄网,国产亚洲天堂,97国产精品

    • 

  • 

    • 






    
  
    
    
    
      
    
        



    
  
    
    
    
  
    

    


            		
        
    
    
    		
  
    

    

    
  
    
    




    
  
    

    


    
  
    
     
  
    

    


    
  
    
            
            慧網(wǎng)動態(tài)        
            
            常見問題        
            
            網(wǎng)絡營銷        
            
            網(wǎng)站設計        
            
            行業(yè)動態(tài)        
            
            網(wǎng)站優(yōu)化        
      
    

    


    
  
    
    使用FSO按文件大小瀏覽文件目錄并進行刪除操作  
    

    


    
  
    
    發(fā)布時間：2005-03-18　　　瀏覽次數(shù)：1185652  
    

    


    
  
    
    
    
      


[ 來源：動網(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 "輸入錯誤！"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    
    
    
    
        
        
    
    
  
    

    


    
  
    
    
    
      
      
      立即預約