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

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源碼和實(shí)例  
MyLength = MyFileInfo.Length  
Catch ex As System.IO.FileNotFoundException  
MyLength = 0 
End Try  
Return MyLength  
End Function  
End Class 

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

【編輯推薦】

1. 代碼講述VB.NET實(shí)現(xiàn)數(shù)據(jù)綁定
2. VB.NET TextBox組件高手經(jīng)驗(yàn)談
3. 瞬間掌握VB.NET Web Service
4. 實(shí)例分析VB.NET Treeview結(jié)構(gòu)
5. 百寶箱之VB.NET設(shè)計制作窗體