案例分析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 As IEnumerable(Of System.IO.FileInfo) = GetFiles(MyDir)  
  6. Dim MyQueryGroup = From MyFile In MyFiles _  
  7. Group MyFile By MyExt = MyFile.Extension.ToLower() _  
  8. Into MyFileGroup = Group _  
  9. Order By MyExt  
  10. Me.listBox1.Items.Clear()  
  11. For Each MyFileGroup In MyQueryGroup  
  12. Me.listBox1.Items.Add("包含" + MyFileGroup.MyExt + "扩展名的文件如下:")  
  13. For Each MyFileInfo In MyFileGroup.MyFileGroup  
  14. Me.listBox1.Items.Add(MyFileInfo.Name)  
  15. Next  
  16. Me.listBox1.Items.Add("")  
  17. Next  
  18. End Sub  '更多.net源码和实例,来自乐博网 www.lob.cn  
  19. Function GetFiles(ByVal MyDir As String) As IEnumerable(Of System.IO.FileInfo)  
  20. If (Not System.IO.Directory.Exists(MyDir)) Then  
  21. Throw New System.IO.DirectoryNotFoundException()  
  22. End If  
  23. Dim MyFileNames As String()  
  24. Dim MyFiles As List(Of System.IO.FileInfo) = New List(Of System.IO.FileInfo)()  
  25. '查找指定目录下的所有子目录中的所有文件  
  26. 'MyFileNames = System.IO.Directory.GetFiles(MyDir, "*.*", _  
  27. 'System.IO.SearchOption.AllDirectories)  
  28. MyFileNames = System.IO.Directory.GetFiles(MyDir)  
  29. For Each MyName As String In MyFileNames  
  30. MyFiles.Add(New System.IO.FileInfo(MyName))  
  31. Next  
  32. Return MyFiles  
  33. End Function  
  34. End Class 

以上就是VB.NET扩展名分组的实例,大家可以试试。

【编辑推荐】

  1. VB.NET编写托盘程序经验杂谈
  2. 手把手指导VB.NET Socket编程
  3. 快速了解VB.NET可选参数
  4. 详细介绍VB.NET MyClass
  5. 自己动手用代码实现VB.NET ListView加载数据
责任编辑:田树 来源: 赛迪网
相关推荐

2009-11-02 10:53:34

VB.NET INI文

2009-11-03 13:16:58

VB.NET读取文件

2009-10-29 14:02:24

VB和VB.NET比较

2009-10-29 15:16:02

VB.NET文件传送

2009-10-28 11:27:34

VB.NET资源文件

2009-10-29 16:46:32

VB.NET语言

2010-01-21 10:48:18

VB.NET扩展方法

2009-11-02 17:12:01

VB和VB.NET

2009-10-15 15:14:54

VB.NET临时文件

2009-10-27 10:58:00

VB.NET文件名排序

2009-10-28 10:04:53

VB.NET XmlW

2009-10-27 09:59:17

VB.NET动态代码

2009-11-03 10:18:46

VB.NET继承

2009-10-27 16:52:41

VB.NET文件传输

2009-10-27 17:59:16

VB.NET删除文件夹

2010-01-15 15:39:14

VB.NET Sub过

2009-10-09 17:40:38

VB.Net问题集

2009-11-02 15:57:36

VB.NET WEB

2010-01-12 17:54:42

VB.NET Dlli

2009-10-28 14:34:44

VB.NET Tree
点赞
收藏

51CTO技术栈公众号