Comments by Member 11518270 (Top 4 by date)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()

' make a reference to a directory
Dim di As New IO.DirectoryInfo("D:\Projects\SearchPDF\SearchPDF\files")
Dim diar1 As IO.FileInfo() = di.GetFiles("*" & SearchString & "*.*")
Dim dra As IO.FileInfo
Label1.Visible = True

'list the names of all files in the specified directory
For Each dra In diar1
HyperLink1.NavigateUrl = dra.FullName
Next
End Sub