PDA

View Full Version : جستجوی یک فایل در یک درایو خاص از هارد



شاپرک
شنبه 24 اردیبهشت 1384, 14:57 عصر
برای جستجوی یک فایل (فارسی یا انگلیسی) در مسیر مشخص از هارد چیکار باید کرد؟

داود شهبازی
شنبه 24 اردیبهشت 1384, 22:18 عصر
با دستور Application.FileSearch

شاپرک
دوشنبه 26 اردیبهشت 1384, 07:05 صبح
میشه یک کم بیشتر توضیح بدید ؟ :cry:

داود شهبازی
دوشنبه 26 اردیبهشت 1384, 16:10 عصر
من یک نمونه داشتم که اکثر موارد جستجو با فایل سرچ در ان هست
البته TEXT0 نام شاخه مورد نظر که جستجو در ان انجام میشه
و TEXT6 هم نام فایل مورد نظر
اگر مقدار تابع Application.FileSearch.Execute صفر باشه یعنی فایل پیدا نشده



Private Sub Command11_Click()
DoCmd.Echo True, "لطفا صبر کنید ..."
With Application.FileSearch
.NewSearch
.LookIn = Me![Text0]
.SearchSubFolders = True
.FileName = Me![Text6]
.MatchAllWordForms = True
If .Execute() > 0 And Right(Trim(Me![Text6]), 3) = "dbf" Then
DoCmd.DeleteObject acTable, "D_SANAD"
DoCmd.TransferDatabase acImport, "dBase IV", Text0, acTable, Text6, "D_SANAD", False
Else
MsgBox " فایل و مسیر مورد نظر وجود ندارد ، لطفا مسیر و نام فایل را کنترل فرمایید ", vbMsgBoxRight, "!خطا"
If Right(Trim(Me![Text6]), 3) <> "dbf" Then
MsgBox " قالب فایل مورد نظر مورد قبول نیست ", vbMsgBoxRight, "توجه"
End If
End If

End With

DoCmd.Close
End Sub

شاپرک
سه شنبه 27 اردیبهشت 1384, 07:27 صبح
D_SANAD ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ :cry:

داود شهبازی
سه شنبه 27 اردیبهشت 1384, 21:58 عصر
این کد بالا که یه مثاله اگه بیشتر روش نگاه کنی متوجه می شوید که در این کد قراره که فایل d_sanad.dbf در یک شاخه مشخص جستجو بشه البته برای اطلاعات بیشتر بهتره داخل help هم یه نگاهی بیندازی ولی فرمان application .filesaerch دارای سوییچهای مختلفی است که من براتون شرح می دهم

Application.FileSearch.NewSearch
جهت انجام جستجوی جدید این فرمان باعث می شه که مقدار موجود در executeکه ناشی از جستجو های قبلی است پاک بشه

Application.FileSearch.LookIn
شاخه ای که قراره جستجو در ان انجام بشه


Application.FileSearch.SearchSubFolders
ایا جستجو در زیر شاخه ها انجام شود یا نه


Application.FileSearch.FileName
نام فایلی که قراره جستجو بشه


Application.FileSearch.MatchAllWordForms
دقیفا عین عبارت جستجو باشه یا بخشی از ان


Application.FileSearch.Execute()
بازگشت مقداری عملیات فایل سرچ داشته

و بقیه اش خیلی کاربردی نیست و در help می تونی اونا را ببینی

شاپرک
شنبه 31 اردیبهشت 1384, 08:27 صبح
ببخشید من یه چیزی رو نمی فهمم :cry:
اگه D_SANAD اسم فایلی که جستجو می کنید پس Text6 چیه ؟ :گیج:

داود شهبازی
شنبه 31 اردیبهشت 1384, 23:51 عصر
ببخشید اشتباه از من بود text6 همان نام فایل است که توسط کاربر وارد میشه ولی d_sanad نام جدول یا table است که در بانک ما ایجاد میشه :sorry:

شاپرک
یک شنبه 01 خرداد 1384, 07:35 صبح
بله درسته

اما
قالب فایل مورد قبول نیست ؟ ؟؟؟؟؟؟؟؟؟؟؟؟

Future
چهارشنبه 02 آذر 1384, 17:35 عصر
سلام
من از دلفی7 استفاده می کنم حتی در help هم دستور FileSearch را پیدا نکردم پس چطوری شما استفاده کردید؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟