[hosein mm]

این برنامه pic finder که عکس ها رو از تمام درایو انتخاب شده سرچ میکنه وپیدا میکنه ودر پیکچر باکس نشان میده میخواستم تغییری در سورس این برنامه بدید که وقتی درایو c را سرچ میکنه کل پوشه ها رو سرچ کنه ولی پوشه ویندوز را سرچ نکنه
منتظر جوابتون هستم?

[Amin_Mansouri]

دوست عزیز خیلی ساده هست شما باید اول پوشه ویندوز رو مسیرشو بدست بیاری
با تابع
GetWindowsDirectory
مسیرو بدست بیار بعد تو هنگام جستجو اون قسمتی که فایل به لیست باکس اضافه میکنی شرط بزار
با تابع
INSTR
چک کن اگر مسیر ویندوز تو مسبر بدست امده از جستجو یکی بود ان رو ادد نکنه
من برات مثالی نوشت متاسفانه وی بی 6 ندارم سورستو با نت پد دیدم به هر حال برات نمونه سورس نوشتم اگر جاییی اشتباه کردم ببخشید اخه وی بی 6 رو نوت بوک داداشم ندارم.

کد:

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

public function PathWindows As string
Dim StrBuffer As String

StrBuffer=Space(255)

WinPath=GetWindowsDirectory(StrBuffer, 255)

StrBuffer = Left$(StrBuffer, WinPath)

PathWindows = StrBuffer

end function


Call PathWindows
Word = Pathwindows

if instr(1,path,"PathWindows) then

' agar File Peyda Kard Kari Anjam Nadahad
else
List1.AddItem path & FileName
END IF