VB.net遍历某个文件夹,并读取子目录中的指定文件 用vb.net怎样实现在遍历某一文件夹下的所有文件
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
'\u628a\u4e0b\u9762\u7684\u76ee\u5f55\u6539\u6210\u4f60\u8981\u904d\u5386\u7684\u76ee\u5f55
Dim MyDir = "C:\Windows"
Dim MyInfo = MyDir + "\u76ee\u5f55\u4e0b\u7684\u6240\u6709\u6587\u4ef6\u5305\u62ec\uff1a"
For Each MyFile In System.IO.Directory.GetFiles(MyDir)
MyInfo += Environment.NewLine + MyFile
Next
Me.RichTextBox1.Text =MyInfo
Dim path = System.IO.Directory.GetFiles("D:\Log\abc", "*.txt", SearchOption.AllDirectories):搜索该路径下的所有txt类型的目录及子目录
path.AddRange(path)
Dim _RecordInfo As String
Dim _Reader As StreamReader
_Reader = New StreamReader(file, System.Text.Encoding.Default):'以Default编码的形式读取file文件(文件写入的编码要与读取的编码一致)
绛旓細vb.net锛欴im path = System.IO.Directory.GetFiles("D:\Log\abc", "*.txt", SearchOption.AllDirectories)锛氭悳绱㈣璺緞涓嬬殑鎵鏈塼xt绫诲瀷鐨勭洰褰曞強瀛愮洰褰 path.AddRange(path)Dim _RecordInfo As String Dim _Reader As StreamReader _Reader = New StreamReader(file, System.Text.Encoding.Default)锛...
绛旓細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...
绛旓細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...
绛旓細Path锛氭槸鍒濆鐩綍鐨勮矾寰 Private Sub WriteArray(ByVal Path As String)'鍐欏叆鏁扮粍浠g爜鍦ㄨ繖閲岋紝鐩存帴灏哖ath鍐欏埌鏁扮粍灏辫浜嗐侱im dir As New IO.DirectoryInfo(Path)For Each d As IO.DirectoryInfo In dir.GetDirectories WriteArray(d.FullName) '閫掑綊 Next End Sub 濡傛灉瀛愮洰褰曡緝澶氶偅涔堥掑綊浼氭瘮杈冭垂鏃...
绛旓細Private Sub GetChilren(ByVal Subject As String)For Each i As String In My.Computer.FileSystem.GetDirectories(Subject)GetChilren锛坕锛'鍦ㄨ繖閲岄掑綊 Next For Each i As String In My.Computer.FileSystem.GetFiles(Subject)'''txt锛岀敤鍏ㄥ眬鍙橀噺鎴栧弬鏁扮被鏁扮粍銆佹硾鍨嬨佹帶浠朵繚瀛樻瘡涓猧 Next End Sub ...
绛旓細IO.Directory.GetDirectories("鏂囦欢澶") '鑾峰彇鏂囦欢澶逛腑鐨勬墍鏈夊瓙鏂囦欢澶硅矾寰勩侷O.Directory.GetFiles("鏂囦欢澶") '鑾峰彇鏂囦欢澶逛笅鎵鏈夋枃浠剁殑璺緞銆'瀛愭枃浠跺す鐨勫瓙鏂囦欢澶癸紝鐢ㄩ掑綊锛
绛旓細棣栧厛浣跨敤 System.IO.DriveInfo.GetDrives()鑾峰彇System.IO.DriveInfo锛屽瓨鍏s()鐒跺悗閬嶅巻ds锛岃幏鍙栧悇涓俊鎭儴鍒嗐侱im ds() As System.IO.DriveInfo = System.IO.DriveInfo.GetDrives()For i As Integer = 0 To ds.Length - 1 TextBox1.Text = TextBox1.Text + ds(i).DriveType.ToString + " " ...
绛旓細Sub 鑾峰彇鎵鏈夋枃浠跺す() Dim Directory As String With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = Application.DefaultFilePath & "\" .Title = "璇烽夋嫨涓涓枃浠跺す" .Show If .SelectedItems.Count = 0 Then Exit Sub Else Directory = .Selecte...
绛旓細GetDwgImage(ByVal FileName As String) As Image If Not File.Exists(FileName) Then Exit Function Dim DwgF As FileStream '鏂囦欢娴 Dim PosSentinel As Integer '鏂囦欢鎻忚堪鍧楃殑浣嶇疆 Dim br As BinaryReader '璇诲彇浜岃繘鍒舵枃浠 Dim TypePreview As Integer '缂╃暐鍥炬牸寮 Dim...
绛旓細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 ...