PDA

View Full Version : سورس search....!



saeedIRHA
دوشنبه 23 آبان 1384, 19:57 عصر
سلام دوستان !
از شما کسی Source داره که بیاد فایل مورده نظر رو Search کنه ؟
مثلاً بیاد فایل با پسونده EXE.* رو search کنه!
با تشکر
Omega7

majid_afra222
چهارشنبه 25 آبان 1384, 06:45 صبح
سلام
این کد رو برای ایجاد یک درخت از یه پوشه با تمام زیر پوشه هاش نوشتم، خودت تغییرش بده به چیزی که میخوای، تا برات دنبال یه فایل تو پوشه با تمام زیر پوشه هاش بگرده


'ایجاد درخت از دایرکتوری خواسته شده
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



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