２．ボタンコントロールの Button1 text プロパティに「フォルダ」と記述します。 Button2 text プロパティに「検 索」と記述します。 ラベルコントロールの Label1 text プロパティに「検索フォルダ」と記述します。 Label3 text プロパティに「検索文字列」と記述します。
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click
Dim strPath As String
Dim fbd As FolderBrowserDialog = New FolderBrowserDialog Dim dr As DialogResult = fbd.ShowDialog()
If dr = DialogResult.OK Then Label2.Text = fbd.SelectedPath End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click
Dim strFile As String 'ファイル名 Dim strFilePath As String 'ファイルパス Dim strFindStr As String '検索したい文字列 Dim strForder As String 'フォルダ
ListBox1.Items.Clear() strForder = Label2.Text
'指定されたものがフォルダの場合は、フォルダ内のファイル名の一覧を取得して '検索します
For Each strFile In System.IO.Directory.GetFiles(strForder) '検索したい文字列 strFindStr = TextBox1.Text strFilePath = strForder + "\" + System.IO.Path.GetFileName(strFile) If Chk_FileInString(strFilePath, strFindStr) Then ListBox1.Items.Add(System.IO.Path.GetFileName(strFile)) End If
Next
If ListBox1.Items.Count = 0 Then ListBox1.Items.Add( _ "検索した文字列を含むファイルは見つかりませんでした。") End If
End Sub
'ファイルを指定して、文字列を含んでいるファイルであるとき、True を返す Function Chk_FileInString(ByVal PistrFile As String, _ ByVal PistrFindStr As String) As Boolean
