Code Insert Tool Test

This Is Just A Test.

Tool being tested is by Steve Dunn

Also downloadable at:


Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork Try Dim files As System.Collections.ObjectModel.ReadOnlyCollection(Of String) ' Look in each file matching the provided wildcards If (recurse) Then files = My.Computer.FileSystem.FindInFiles(directory, searchText, True, FileIO.SearchOption.SearchAllSubDirectories, wildCards) Else files = My.Computer.FileSystem.FindInFiles(directory, searchText, True, FileIO.SearchOption.SearchTopLevelOnly, wildCards) End If For Each foundFile As String In files Me.BackgroundWorker1.ReportProgress(0, foundFile) Next Catch ex As Exception MsgBox(ex.Message & vbCrLf & ex.Source, MsgBoxStyle.Information, "Exception Message") End Try End Sub ' This is Microsoft Sans Serif size 12 ' Width Set to 640 Height set to 410


About pcsxcetrasupport3

My part time Business, I mainly do system building and system repair. Over the last several years I have been building system utility's in vb script , HTA applications and VB.Net to be able to better find the information I need to better understand the systems problems in order to get the systems repaired and back to my customers quicker.
This entry was posted in Uncategorized. Bookmark the permalink.