پيدا كردن يك پوشه خاص

[f_g1348]

سلام
دوستان من چطور مي تونم بفهمم كه مثلا داخل درايو c پوشه example موجود است يا نه ؟

[barbodsoft.com]

از for each استفاده کن در این کد من سعی کردم پوشه ای به نام BarbodData را در درایو C پیدا کنم.



For Each fa As String In My.Computer.FileSystem.GetDirectories("c:/")
If fa = "c:\BarbodData" Then
MsgBox("فولدر موجود بود")
End If
Next

[Mani_rf]

این روش ساده تر و سریعتر است :



If IO.Directory.Exists("C:\Example") Then MsgBox("Folder Found")

[مرتضی تقدمی]

اگه بخوایم تمامی زیر شاخه های درایو c رو هم بگردیم کدش چی میشه؟
ممنون

[Saman_12]

شما باید از تابع بازگشتی استفاده کنید(خود دات نت برای جستجو تابع داره اما من تا حالا کارکرد ازش ندیدم...) :

Public Sub FindFolder(ByVal path As String, ByVal name As String, ByVal array As ArrayList, Optional ByVal searchsub As Boolean = False, Optional ByVal Attributes As IO.FileAttributes = IO.FileAttributes.Directory)
On Error Resume Next

Dim dirinfo As New IO.DirectoryInfo(path)

For Each dir As IO.DirectoryInfo In dirinfo.GetDirectories()

Application.DoEvents()
If dir.Attributes = Attributes And IO.Directory.Exists(dir.FullName & "\" & name) Then

array.Add(New IO.DirectoryInfo(dir.FullName & "\" & name))
End If
Next

If searchsub Then

For Each dir As IO.DirectoryInfo In dirinfo.GetDirectories()

Application.DoEvents()
FindFolder(dir.FullName, name, array, searchsub, Attributes)
Next
End If
End Sub