2
Textbox1.Text = part

'searching the folder with key word from Textbox1'

' Only get files that contain the keyword stored in 'part' string
Dim dirs As String() = Directory.GetFiles("d:\data\", "*$part*")

'display the result
Dim dir As String
For Each dir In dirs
    Listbox1.Items.Add(dir)
Next

名前にキーワードを含むファイルのフォルダーを検索することはできません。キーワードは「part」変数に格納されます。

4

2 に答える 2

0

これはワンライナーです:

Listbox1.Items.AddRange(Directory.GetFiles("D:\data\", $"*{Textbox1.Text}*"))
于 2013-05-29T16:53:16.903 に答える