日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

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

在六枝等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強發(fā)展的系統(tǒng)性、市場前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供網(wǎng)站建設(shè)、做網(wǎng)站 網(wǎng)站設(shè)計制作定制設(shè)計,公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),品牌網(wǎng)站設(shè)計,營銷型網(wǎng)站,外貿(mào)網(wǎng)站制作,六枝網(wǎng)站建設(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源碼和實例 
  
  
  
MyLength = MyFileInfo.Length 
  
  
  
Catch ex As System.IO.FileNotFoundException 
  
  
  
MyLength = 0
  
  
  
End Try 
  
  
  
Return MyLength 
  
  
  
End Function 
  
  
  
End Class
 
 
 

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

新聞標(biāo)題：輕松學(xué)習(xí)VB.NET文件排序方法
網(wǎng)址分享：http://m.5511xx.com/article/djcehdi.html