• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 14 رای - 3.14 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: برنامه picfinder
حالت خطی
#2
دوست عزیز خیلی ساده هست شما باید اول پوشه ویندوز رو مسیرشو بدست بیاری
با تابع
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
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


پیام‌های این موضوع
برنامه picfinder - توسط hosein mm - 05-21-2011، 11:40 AM
RE: برنامه picfinder - توسط Amin_Mansouri - 05-21-2011، 12:15 PM

موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  راهنمای در خصوص برنامه ی زیر...جمع اعداد salim_a` 1 4,243 05-01-2016، 05:34 PM
آخرین ارسال: Amin_Mansouri
  دانلود قسمتی از یه سایت در برنامه aghamali 1 3,696 11-07-2014، 09:40 PM
آخرین ارسال: Amin_Mansouri
  ساخت برنامه پرتابل از برنامه های نوشته شده sajad-kh 2 4,766 09-15-2013، 06:14 AM
آخرین ارسال: Amin_Mansouri
  برنامه ی کمکی | اسکرول در محیط کدنویسی reza13812 0 2,906 07-26-2013، 05:08 AM
آخرین ارسال: reza13812
  چگونگي تعيين زمان براي اجراي برنامه roshanak 10 14,271 01-13-2013، 08:13 PM
آخرین ارسال: gachboy
  اسكينر براي زيبا سازي محيط برنامه Amin_Mansouri 1 4,226 01-06-2013، 02:13 PM
آخرین ارسال: roshanak
  مشکل در برنامه نوشته شده با Vb Thewolf 18 21,342 11-16-2012، 04:50 PM
آخرین ارسال: Amin_Mansouri
  آموزش ساکس خور کردنه برنامه w30c 0 2,880 10-27-2012، 10:39 PM
آخرین ارسال: w30c
  برنامه Chek id yahoo alakimalaki 3 5,712 10-04-2012، 02:06 PM
آخرین ارسال: alakimalaki
  گذاشتن ocx داخل خود برنامه alakimalaki 0 3,065 09-02-2012، 02:12 PM
آخرین ارسال: alakimalaki

پرش به انجمن:


Browsing: 2 مهمان