+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: برنامه picfinder (/showthread.php?tid=314)
برنامه picfinder - hosein mm - 05-21-2011
این برنامه pic finder که عکس ها رو از تمام درایو انتخاب شده سرچ میکنه وپیدا میکنه ودر پیکچر باکس نشان میده میخواستم تغییری در سورس این برنامه بدید که وقتی درایو c را سرچ میکنه کل پوشه ها رو سرچ کنه ولی پوشه ویندوز را سرچ نکنه
منتظر جوابتون هستم?
RE: برنامه picfinder - Amin_Mansouri - 05-21-2011
دوست عزیز خیلی ساده هست شما باید اول پوشه ویندوز رو مسیرشو بدست بیاری
با تابع
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