日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

學(xué)習(xí)VB.NET時，你可能會遇到VB.NET文件排序的問題，這里將介紹VB.Net按文件尺寸大小排序的實例，在這里拿出來和大家分享一下。

在六枝等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強(qiáng)發(fā)展的系統(tǒng)性、市場前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供網(wǎng)站建設(shè)、做網(wǎng)站 網(wǎng)站設(shè)計制作定制設(shè)計,公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),品牌網(wǎng)站設(shè)計,營銷型網(wǎng)站,外貿(mào)網(wǎng)站制作,六枝網(wǎng)站建設(shè)費(fèi)用合理。

VB.NET文件排序之按文件尺寸大小代碼如下：

 
 
 

  
  
  
Public Class Form1 
  
  
  
'按照文件尺寸大小排序 
  
  
  
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click 
  
  
  
Dim MyDir As String = Me.textBox1.Text 
  
  
  
Dim MyFiles = GetFiles(MyDir) 
  
  
  
Dim MyQuery = From MyFile In MyFiles _ 
  
  
  
Order By (GetLength(MyFile)) _ 
  
  
  
Select MyFile 
  
  
  
Me.dataGridView1.DataSource = MyQuery.ToArray() 
  
  
  
End Sub 
  
  
  
Function GetFiles(ByVal MyDir As String) As IEnumerable(Of System.IO.FileInfo) 
  
  
  
If (Not System.IO.Directory.Exists(MyDir)) Then 
  
  
  
Throw New System.IO.DirectoryNotFoundException() 
  
  
  
End If 
  
  
  
Dim MyFileNames As String() 
  
  
  
Dim MyFiles As List(Of System.IO.FileInfo) = New List(Of System.IO.FileInfo)() 
  
  
  
'查找指定目錄下的所有子目錄中的所有文件 
  
  
  
'MyFileNames = System.IO.Directory.GetFiles(MyDir, "*.*", _ 
  
  
  
'System.IO.SearchOption.AllDirectories) 
  
  
  
MyFileNames = System.IO.Directory.GetFiles(MyDir) 
  
  
  
For Each MyName As String In MyFileNames 
  
  
  
MyFiles.Add(New System.IO.FileInfo(MyName)) 
  
  
  
Next 
  
  
  
Return MyFiles 
  
  
  
End Function 
  
  
  
Function GetLength(ByVal MyFileInfo As System.IO.FileInfo) As Long 
  
  
  
Dim MyLength As Long = 0
  
  
  
Try  '更多.net源碼和實例 
  
  
  
MyLength = MyFileInfo.Length 
  
  
  
Catch ex As System.IO.FileNotFoundException 
  
  
  
MyLength = 0
  
  
  
End Try 
  
  
  
Return MyLength 
  
  
  
End Function 
  
  
  
End Class
 
 
 

以上就是VB.NET文件排序的代碼，大家學(xué)會了嗎？

本文標(biāo)題：輕松學(xué)習(xí)VB.NET文件排序方法
URL地址：http://www.dlmjj.cn/article/djcehdi.html