本篇文章为大家展示了VB.NET中怎么对文件排序,内容简明扼要并且容易理解,绝对能使你眼前一亮,通过这篇文章的详细介绍希望你能有所收获。VB.net文件排序之按文件尺寸大小代码如下:Public Class FORM1&
本篇文章为大家展示了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中怎么对文件排序,你们学到知识或技能了吗?如果还想学到更多技能或者丰富自己的知识储备,欢迎关注编程网精选频道。
--结束END--
本文标题: VB.NET中怎么对文件排序
本文链接: https://www.lsjlt.com/news/292892.html(转载时请注明来源链接)
有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341
下载Word文档到电脑,方便收藏和打印~
2024-05-05
2024-05-05
2024-05-05
2024-05-05
2024-05-05
2024-05-05
2024-05-05
2024-05-05
2024-05-05
2024-05-05
回答
回答
回答
回答
回答
回答
回答
回答
回答
回答
0