轻松学习VB.NET文件排序方法

学习VB.NET时，你可能会遇到VB.NET文件排序的问题，这里将介绍VB.Net按文件尺寸大小排序的实例，在这里拿出来和大家分享一下。

在六枝等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供网站建设、做网站 网站设计制作定制设计,公司网站建设,企业网站建设,品牌网站设计,营销型网站,外贸网站制作,六枝网站建设费用合理。

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文件排序的代码，大家学会了吗？

文章题目：轻松学习VB.NET文件排序方法
本文路径：http://www.hantingmc.com/qtweb/news29/284729.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联