سوال: جستجو فایل در پوشه مورد نظر [بایگانی]

View Full Version : سوال: جستجو فایل در پوشه مورد نظر

sajjad1365

شنبه 02 آبان 1388, 09:47 صبح

سلام. من میخوام یه فایل رو توی یک فولدر(فولدر برنامه) سرچ کنم .اگه پیدا کرد که هیچ ولی اگه پیدا نکرد یه پیغام بده.
ممنون.

mostafa_bahar

شنبه 02 آبان 1388, 10:13 صبح

Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long

sajjad1365

شنبه 02 آبان 1388, 17:46 عصر

سلام.ممنون که زحمت کشیدین.
اگه نحوه استفادش روهم بگی ممنون میشم.

Dr.Bronx

شنبه 02 آبان 1388, 18:26 عصر

اگر توی اون پوشه فقط یک فایل دارید می تونید از کد زیر استفاده کنید .

Private Declare Function PathIsDirectoryEmpty Lib "shlwapi.dll" (ByVal pszPath As String) As Long

این تابع بررسی می کنه که پوشه مورد نظر شما خالیه یا پره
اگه پوشه مورد نظر خالی باشه برگشتی مقدار یک هست و در غیر این صورت مقدار صفر
Pszpath : این متغیر مسیری هست که مورد بررسی قرار می گیره

موفق باشید

sajjad1365

شنبه 02 آبان 1388, 20:58 عصر

سلام. نه سوال من این نبود.
مثلا یک نامی رو میدیم اگه فایلی به اون نام در فولدر برنامه(مسیر جاری) باشه که هیچ و گرنه پیغام بده.

Dr.Bronx

شنبه 02 آبان 1388, 21:16 عصر

آها خوب از این کد ها استفاده کنید .

Public Declare Function PathFileExistsA Lib "shlwapi.dll" (ByVal pszPath As String) As Long

مثلا می خوایم بگیم اگر فایل Chk.exe در کنار فایل اجرایی قرار داشت یک بوق بزنه وگرنه خارج بشه

پس میگیم

If PathFileExistsA(App.Path & "\chk.exe") Then

Beep

Else

End

End if

IamOverlord

یک شنبه 10 آبان 1388, 20:28 عصر

سلام دوست عزیز!
این هم یه سورس کامل در مورد سوال شما :
http://up.iranblog.com/3/1257160257.zip