سورس search....!

[saeedIRHA]

سلام دوستان !
از شما کسی Source داره که بیاد فایل مورده نظر رو Search کنه ؟
مثلاً بیاد فایل با پسونده EXE.* رو search کنه!
با تشکر
Omega7

[majid_afra222]

سلام
این کد رو برای ایجاد یک درخت از یه پوشه با تمام زیر پوشه هاش نوشتم، خودت تغییرش بده به چیزی که میخوای، تا برات دنبال یه فایل تو پوشه با تمام زیر پوشه هاش بگرده

    'ایجاد درخت از دایرکتوری خواسته شده

    Dim strFolderName As String

    Dim strFileName As String

    Private Sub FindFiles(ByVal strPath As String, ByVal MainNode As TreeNode)

        Dim Node As TreeNode

        For Each strFolderName In Directory.GetDirectories(strPath)

            If MainNode Is Nothing Then

                Node = TreeMain.Nodes.Add(Path.GetFileName(strFolderName)  )

            Else

                Node = MainNode.Nodes.Add(Path.GetFileName(strFolderName)  )

            End If

            Node.Tag = NodeType.Directory

            FindFiles(strFolderName, Node)

        Next

        For Each strFileName In Directory.GetFiles(strPath)

            If MainNode Is Nothing Then

                Node = TreeMain.Nodes.Add(Path.GetFileName(strFileName))

            Else

                Node = MainNode.Nodes.Add(Path.GetFileName(strFileName))

            End If

            Node.Tag = NodeType.File

        Next

    End Sub

    Dim strPath As String

    Private Sub LoadTree()

        TreeMain.Nodes.Clear()

        If SelectFolder.ShowDialog = DialogResult.OK Then

            strPath = SelectFolder.SelectedPath

            Dim strFolderName As String

            Dim strFileName As String

            'برای حرکت بر روی دایرکتوریها

            Dim node As TreeNode

            'node = TreeMain.Nodes.Add(Path.GetFileName(strPath))



            TreeMain.BeginUpdate()

            FindFiles(strPath, Nothing)

            TreeMain.EndUpdate()

        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        LoadTree()

    End Sub

امیدوارم بدردت بخوره