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

开发 后端
这里为你介绍了VB.NET文件排序之按文件尺寸大小的方法,代码详细,有详细的解释,希望可以给初学者解除疑问。

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

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

  1. Public Class Form1  
  2. '按照文件尺寸大小排序  
  3. Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click  
  4. Dim MyDir As String = Me.textBox1.Text  
  5. Dim MyFiles = GetFiles(MyDir)  
  6. Dim MyQuery = From MyFile In MyFiles _  
  7. Order By (GetLength(MyFile)) _  
  8. Select MyFile  
  9. Me.dataGridView1.DataSource = MyQuery.ToArray()  
  10. End Sub  
  11. Function GetFiles(ByVal MyDir As String) As IEnumerable(Of System.IO.FileInfo)  
  12. If (Not System.IO.Directory.Exists(MyDir)) Then  
  13. Throw New System.IO.DirectoryNotFoundException()  
  14. End If  
  15. Dim MyFileNames As String()  
  16. Dim MyFiles As List(Of System.IO.FileInfo) = New List(Of System.IO.FileInfo)()  
  17. '查找指定目录下的所有子目录中的所有文件  
  18. 'MyFileNames = System.IO.Directory.GetFiles(MyDir, "*.*", _  
  19. 'System.IO.SearchOption.AllDirectories)  
  20. MyFileNames = System.IO.Directory.GetFiles(MyDir)  
  21. For Each MyName As String In MyFileNames  
  22. MyFiles.Add(New System.IO.FileInfo(MyName))  
  23. Next  
  24. Return MyFiles  
  25. End Function  
  26. Function GetLength(ByVal MyFileInfo As System.IO.FileInfo) As Long  
  27. Dim MyLength As Long = 0 
  28. Try  '更多.net源码和实例  
  29. MyLength = MyFileInfo.Length  
  30. Catch ex As System.IO.FileNotFoundException  
  31. MyLength = 0 
  32. End Try  
  33. Return MyLength  
  34. End Function  
  35. End Class 

以上就是VB.NET文件排序的代码,大家学会了吗?

【编辑推荐】

  1. 代码讲述VB.NET实现数据绑定
  2. VB.NET TextBox组件高手经验谈
  3. 瞬间掌握VB.NET Web Service
  4. 实例分析VB.NET Treeview结构
  5. 百宝箱之VB.NET设计制作窗体
责任编辑:田树 来源: 乐博网
相关推荐

2010-01-14 10:07:08

VB.NET文件名排序

2010-01-13 17:47:59

VB.NET拖放

2010-01-14 11:00:48

VB.NET文件合并

2009-11-02 12:35:10

VB.NET追加文件

2010-01-13 18:28:21

VB.NET历史菜单

2010-01-11 15:12:30

VB.NET特殊窗体

2009-11-10 15:44:17

VB.NET常量

2009-10-27 10:58:00

VB.NET文件名排序

2009-11-03 09:37:33

VB.NET重载

2009-10-30 14:45:42

Flash控制VB.N

2010-01-14 13:59:01

2009-11-03 09:26:13

VB.NET方法

2009-10-13 17:08:10

CLR VB.NET

2010-01-11 15:01:55

VB.NET冒泡排序

2009-10-29 16:36:49

VB.NET .DLL

2010-01-11 18:40:03

VB.NET操作注册表

2010-01-18 19:36:52

VB.NET调整控件

2010-01-21 13:34:56

VB.NET删除文件夹

2009-10-14 16:46:25

VB.NET OnSt

2010-01-21 10:48:18

VB.NET扩展方法
点赞
收藏

51CTO技术栈公众号