[Help]Search File Function[Solved]

If file.exists("C:\abc.txt") then
msgbox("C:\abc.txt exists!!!")
end if

Dim CTBFilPth As String ' CTB Plot Style Files Path
CTBFilPth = "C:\Program Files\AutoCAD LT 2002\Plot Styles\"

So take this and play with it. It will search sub-folders too... When it
finds a CTB file, it adds it to a Combox (cmbCTB):

' Find Plot Styles in Multiple Folders and Lists them
' Get Folder Names Listing in Plot Styles Path
Dim rootDi As New DirectoryInfo(CTBFilPth)
Dim di As DirectoryInfo
For Each di In rootDi.GetDirectories
Dim CTBdirs() As String = Directory.GetFiles(CTBFilPth & di.Name)
For Each CTBfilname In CTBdirs
CTBtestname = System.IO.Path.GetFileName(CTBfilname)
' Test for CTB files and add to Combox 'cmbCTB'
Dim FilTest As String = CTBtestname.Remove(0, (Len(CTBtestname) - 3))
If UCase(FilTest) = "CTB" Then
cmbCTB.Items.Add(CTBtestname)
End If
Next
Next