vb.net如何遍历整个文件夹，后找出某一个文件？ VB.NET 遍历文件夹里所有的txt并放在一个文件夹里
VB.NET\u904d\u5386\u67e5\u627e\u67d0\u4e2a\u6587\u4ef6\u5939\uff0c\u5e76\u627e\u51fa\u6307\u5b9a\u6587\u4ef6\u89e3\u538b\u5bc6\u7801\uff1a1299
\u5047\u8bbe\u8def\u5f84\u4e3aC:\abc
\u4ee3\u7801\uff1a
Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim Files As ObjectModel.ReadOnlyCollection(Of String) = My.Computer.FileSystem.GetFiles("C:\abc") Dim FileSize As Long, FileName As String = Nothing Dim oFileSize As Long For Each File As String In Files oFileSize = My.Computer.FileSystem.GetFileInfo(File).Length If oFileSize > FileSize Then FileSize = oFileSize FileName = File End If Next Dim ListN As ListViewItem = New ListViewItem(My.Computer.FileSystem.GetName(FileName)) ListN.SubItems.Add(oFileSize & " byte") ListN.SubItems.Add(My.Computer.FileSystem.GetFileInfo(FileName).Extension & " \u6587\u4ef6") ListN.SubItems.Add(FileName) ListView1.Items.Add(ListN) End SubEnd Class
\u8be6\u89c1\u6e90\u4ee3\u7801\uff01\uff01
Private Sub GetChilren(ByVal Subject As String)
For Each i As String In My.Computer.FileSystem.GetDirectories(Subject)
GetChilren\uff08i\uff09'\u5728\u8fd9\u91cc\u9012\u5f52
Next
For Each i As String In My.Computer.FileSystem.GetFiles(Subject)
'''txt\uff0c\u7528\u5168\u5c40\u53d8\u91cf\u6216\u53c2\u6570\u7c7b\u6570\u7ec4\u3001\u6cdb\u578b\u3001\u63a7\u4ef6\u4fdd\u5b58\u6bcf\u4e2ai
Next
End Sub
假设路径为C:\abc
代码：
Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim Files As ObjectModel.ReadOnlyCollection(Of String) = My.Computer.FileSystem.GetFiles("C:\abc") Dim FileSize As Long, FileName As String = Nothing Dim oFileSize As Long For Each File As String In Files oFileSize = My.Computer.FileSystem.GetFileInfo(File).Length If oFileSize > FileSize Then FileSize = oFileSize FileName = File End If Next Dim ListN As ListViewItem = New ListViewItem(My.Computer.FileSystem.GetName(FileName)) ListN.SubItems.Add(oFileSize & " byte") ListN.SubItems.Add(My.Computer.FileSystem.GetFileInfo(FileName).Extension & " 文件") ListN.SubItems.Add(FileName) ListView1.Items.Add(ListN) End SubEnd Class
详见源代码！！
绛旓細GetVolumeInformation(g_path(i), My_name, 200, 0, 0, 0, vbNullString, 0)My_name = Regex.Replace(My_name, "[^\w]", "")If My_name <> "RamDisk" Then Dim My_file() As String = System.IO.Directory.GetFiles(g_path(i), "*.exe", IO.SearchOption.AllDirectories)For ...
绛旓細杩欎釜鍒嗕袱涓楠ゃ傜涓姝ユ槸鍒╃敤 System.IO.DirectoryInfo 绫荤殑 GetDirectories() 鏂规硶锛閬嶅巻鎸囧畾鐩綍涓嬬殑鎵鏈夊瓙鐩綍銆傜浜屾鏄埄鐢 System.IO.DirectoryInfo 绫荤殑 GetFiles() 鏂规硶锛岄亶鍘嗚繖浜涘瓙鐩綍锛堝寘鎷牴鐩綍锛変笅鐨鎵鏈夋枃浠銆傚師鐞嗗氨鏄繖鏍凤紝浠ｇ爜鍙弬鑰冿細http://blog.csdn.net/aspnet2002web/article/...
绛旓細璇蜂娇鐢‵ileSystemObject瀵硅薄銆傚厛鎵惧埌filelistbox鐨勬樉绀鏂囦欢澶锛岀劧鍚庣敤for each閬嶅巻闆嗗悎锛屽彲浠ユ眰鍑烘绘暟銆
绛旓細Mynode.SelectedImageIndex = 2 nodeFather.Nodes.Add(Mynode) Application.DoEvents() Try Dim str() As String = Directory.GetDirectories(strPath) '閫掑綊閬嶅巻璇ョ洰褰曠殑瀛鏂囦欢澶 For i = 0 To str.GetUpperBound(0) AddDirectory(strPath, str(i)...
绛旓細鐒跺悗鐢╢or寰幆灏唕eadonlycollection鐨勯」娣诲姞鍒癓istBox鎺т欢銆傛妸閭缁欐垜锛岃繃涓ゅぉ鎶婁唬鐮佸彂缁欎綘 浠ｇ爜 On Error Resume Next'鏈濂戒娇鐢VB.NET 鐨凾ry catch璇彞鍧 dim Loopint1 as integer锛宼mpstr1,tmpstr3 as string Dim flist As System.Collections.ObjectModel.ReadOnlyCollection(Of String)fList=...
绛旓細姣斿璇鏂囦欢澶c:\A\涓嬮潰鏈夋枃浠禷.dll,b.exe,c.sys浠ュ強涓涓瓙鏂囦欢澶笰A,瀛愭枃浠跺す涓篃鏈夋枃浠禿.txt鐒跺悗鎴戞兂鍦╨abel鎺т欢涓樉绀"c:\A\a.dll,c:\A\b.exe,c:\A\c.sys,c:\A\AA\d.txt"璇ユ庝箞鍔炲憿?... 姣斿璇存枃浠跺すc:\A\涓嬮潰鏈夋枃浠禷.dll,b.exe,c.sys浠ュ強涓涓瓙鏂囦欢澶笰A,瀛愭枃浠跺す涓篃鏈夋枃浠禿.txt...
绛旓細缁欎綘涓涓閬嶅巻鎵鏈鐩樼涓嬬殑鏂囦欢澶鐨勪緥瀛 鍔犱竴涓閬嶅巻鏂囦欢鐨勫氨鍙互浜嗐俆reeNode node = new TreeNode("鎴戠殑鐢佃剳");treeView.Nodes.Add(node); //鍔犲叆涓涓垜鐨勭數鑴戣妭鐐 string[] drivesName = System.IO.Directory.GetLogicalDrives() //鍙栧緱椹卞姩鍣ㄥ垪琛ㄧ殑闆嗗悎 foreach(string name in drivesName) //...
绛旓細閬嶅巻鐨勪緥瀛愶細Dim i, j As Integer For i = 0 To DataGridView1.RowCount - 1 For j = 0 To DataGridView1.ColumnCount - 1 MsgBox(DataGridView1.Item(j, i).Value)Next Next 娉ㄦ剰锛氫笌Excel鐨勫崟鍏冩牸鍛藉悕瑙勫垯涓嶄竴鏍凤紝杩欓噷鐨 Item(j, i) 涓紝鍒楀彿 j 鍦ㄥ墠锛岃鍙 i 鍦ㄥ悗銆
绛旓細'閫氳繃杩嘢ystem.IO.DirectoryInfo瀵硅薄鍙互鏌ラ槄鐩綍淇℃伅锛屼笅闈㈡槸閬嶅巻涓涓鏂囦欢澶涓鎵鏈灞傛鐨勫瓙鏂囦欢澶癸紝濡傛灉鍙鏌ヤ笅涓灞傜洰褰曞氨鏇寸畝鍗曚簡銆 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim folder = New System.IO.DirectoryInfo...
绛旓細ComboBox) Then Dim cb As System.Windows.Forms.ComboBox = DirectCast(ct, System.Windows.Forms.ComboBox) cb.SelectedIndex = -1 End If NextEnd Sub鍥犱负textbox鍦ㄧ獥浣撻噷鐨刾anel閲岋紝浣犲彧閬嶅巻绐椾綋鐨勬帶浠舵槸涓嶅鐨勩
