PDA

View Full Version : سوال: جستجوی یک فولدر در یک درایو



SHD.NET
چهارشنبه 08 آذر 1391, 21:30 عصر
سلام.
من میخوام یه فولدر که مثلا نام اون "Hamid" هستش رو توی درایو D جستجو کنم . چجوری میشه این کار رو انجام داد ؟؟

ممنون

Mani_rf
چهارشنبه 08 آذر 1391, 21:55 عصر
اگر فقط میخوای بدونی که همچین پوشه ای تو مسیر خاصی هست یا نه از این دستور استفاده کن :
IO.Directory.Exists("ّFolder Path")

SHD.NET
چهارشنبه 08 آذر 1391, 21:59 عصر
ممنون از پاسختون اما من مسیر فولدرو نمی دونم . میخوام با استفاده از جستجو بدست بیارم . الان هم مشکلم جستجو هستش.

SHD.NET
چهارشنبه 08 آذر 1391, 22:52 عصر
آقا کسی نیست ج بده ؟؟ لازم دارم . میخوام یه دایرکتوری رو توی یه درایو سرچ کنم

xxnagin
چهارشنبه 08 آذر 1391, 22:53 عصر
سلام
از این می تونی استفاده بکنی همون چیزی که میخوای
ساخت برنامه پيدا كردن فايلي كه در سيستم گمش كرديم (http://barnamenevis.org/showthread.php?348494-ساخت-برنامه-پيدا-كردن-فايلي-كه-در-سيستم-گمش-كرديم&highlight=%D8%B3%D8%A7%D8%AE%D8%AA+%D8%A8%D8%B1%D9 %86%D8%A7%D9%85%D9%87+%D9%BE%D9%8A%D8%AF%D8%A7+%D9 %83%D8%B1%D8%AF%D9%86+%D9%81%D8%A7%D9%8A%D9%84%D9% 8A+%D9%83%D9%87+%D8%AF%D8%B1+%D8%B3%D9%8A%D8%B3%D8 %AA%D9%85+%DA%AF%D9%85%D8%B4+%D9%83%D8%B1%D8%AF%D9 %8A%D9%85)

SHD.NET
پنج شنبه 09 آذر 1391, 10:42 صبح
ممنون از پاسختون ولی این برنامه فایل رو جستجو می کنه . من میخوام یه دایرکتوری (فولدر) رو جستجو کنم .
در این باره سورسی ندارین ؟

فرید نجفلو
پنج شنبه 09 آذر 1391, 11:51 صبح
سلام

این کد رو می تونید استفاده کنید:
Dim FolderList = IO.Directory.GetDirectories("D:\", "Hamid", IO.SearchOption.AllDirectories)

این کد یه مشکل اساسی داره که ممکنه وقتی به پوشه هایی مثل System Volume Information برسه خطا بگیره (مجوز دسترسی)
پس اگه از ریشه (مثلا \:D) شروع نمی کنید روش سر راستی هست

می تونید از کد پایین هم استفاده کنید که یکم طولانی تره ( و بازگشتی هست)

Private Function SearchFolder(path As String, FolderName As String) As List(Of String)
Dim Result As New List(Of String)
Try
Dim Folders = IO.Directory.GetDirectories(path)
For Each aFolder As String In Folders
If IO.Path.GetFileName(aFolder).ToLower = FolderName.ToLower Then Result.Add(aFolder)
Result.AddRange(SearchFolder(aFolder, FolderName))
Next
Catch ex As Exception

End Try
Return Result
End Function