Was this page helpful?
Your feedback about this content is important. Let us know what you think.
Additional feedback?
1500 characters remaining
Export (0) Print
Expand All
Expand Minimize

FilesOfType Property

Visual Studio .NET 2003

Sets or returns the file extension for the files to be searched.

[Visual Basic .NET]
Public Property FilesOfType() As String
[Visual Basic 6]
Property Get FilesOfType() As String
Property Let FilesOfType( _
   ByVal NewValue As String _
HRESULT __stdcall get_FilesOfType(
   /* [out, retval] */ BSTR* retVal
HRESULT __stdcall put_FilesOfType(
   /* [in] */ BSTR NewValue
public string FilesOfType {get; set;}
[JScript .NET]
public function get FilesOfType() : String
public function set FilesOfType(
   NewValue : String


Required. A file extension to be used in the Find or Replace operation.


The FilesOfType argument can be any three-character file extension, such as .bas, .cpp, .txt, and so forth. Also, FilesOfType corresponds to the File types box. It is a semi-colon delimited list of wildcard patterns to search. It works similarly to the MS-DOS DIR command. You can, for example, set FilesOfType to MyProg*.cpp. You can only use the wildcard characters on files, however, not directories. So, for example, you could not use Sample*\abc*.cpp.


Sub FilesOfTypeExample()
   Dim objTextDoc As TextDocument
   Dim objEditPt As EditPoint
   Dim iCtr As Integer
   Dim objFind As Find

   ' Create a new text file.
   DTE.ItemOperations.NewFile("General\Text File")

   ' Get a handle to the new document and create an EditPoint.
   objTextDoc = DTE.ActiveDocument.Object("TextDocument")
   objEditPt = objTextDoc.StartPoint.CreateEditPoint
   objFind = objTextDoc.DTE.Find

   ' Insert ten lines of text.
   For iCtr = 1 To 10
      objEditPt.Insert("This is a test." & Chr(13))
   Next iCtr

   ' Set the find options.
   objFind.Action = vsFindAction.vsFindActionReplaceAll
   objFind.Backwards = False
   objFind.FilesOfType = "*.txt"
   objFind.FindWhat = "test"
   objFind.KeepModifiedDocumentsOpen = True
   objFind.MatchCase = False
   objFind.MatchInHiddenText = False
   objFind.MatchWholeWord = True
   objFind.PatternSyntax = vsFindPatternSyntax.vsFindPatternSyntaxLiteral
   objFind.ReplaceWith = "NEW THING"
   objFind.ResultsLocation = vsFindResultsLocation.vsFindResultsNone
   objFind.SearchPath = "c:\temp"
   objFind.SearchSubfolders = False
   objFind.Target = vsFindTarget.vsFindTargetCurrentDocument
   ' Perform the Find operation.
End Sub

See Also

FindReplace Method

Applies To: Find Object

© 2015 Microsoft