vb.net 如何查找电脑所有盘中指定文件夹的地址保存到列表中显示？

Question

比如找文件夹1,查找出每个盘中文件夹1的位置，显示在列表中.利用vb.net,vb.net 很好用的但是资料好少

Answer 1

大概这样子，供参考。

Imports System.IO

Public Class Form1

    Private Function getDir(cdir As String, find As String) As String
        Dim sDir() As String
        Dim sre As String = ""
        Try
            sDir = Directory.GetDirectories(cdir)
            If sDir.Length = 0 Then Return sre
        Catch ex As Exception
            Return ""
        End Try

        Dim t As String
        For Each s In sDir
            If find.Length < s.Length Then
                t = s.Substring(s.Length - find.Length)
                If t = find Then
                    sre += s + vbCrLf
                End If
            End If
            sre += getDir(s, find)
        Next
        Return sre

    End Function


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sfile As String = TextBox1.Text
        If sfile = "" Then Return
        Dim sGetFile As String = ""

        Dim drivers() As DriveInfo
        drivers = DriveInfo.GetDrives()
        For Each d In drivers
            sGetFile += getDir(d.Name, sfile)
        Next

        TextBox2.Text = sGetFile

    End Sub
End Class