شبیه سازی دسکتاپ ویندوز

:40::40::40:
با سلام به همه دوستان و اساتید Vb.
من دارم یک برنامه می نویسم که در آن احتیاج به این دارم که فایل ها و پوشه های روی دسکتاپ را روی فرم خودم داشته باشم.
می خواستم ببینم کسی توانیی کمک به من را دارد.
با تشکر...
:11::11::11:

سلام!

خوب میتونی با Dir گرفتن از مسیر:
x:\Documents and Settings\User\Desktop
( x درایوی که ویندوز در آن نصب هست -- User نام حساب کاربری که از آن استفاده میکنید)
فایلها و پوشه های موجود در دسکتاپ را بدست آوری.

اگه مشکلت چیز دیگس یه کم بیشتر توضیح بدی بهتره!

موفق باشی :11:

با تشکر از شما دوست عزیز.
مشکل من گذاشتن آن توی فرم می باشد.
بازم متشکرم...

سلام
کنترلری که با این وضعیت دسکتاپ را نشان میدهد، نامش ListView است که به عنوان یک ActiveX در VB6 قابل استفاده است،
اگر درست یادم مانده باشد
Project->Add Components->Microsoft Windows Common Controls 6.0

یا مسیری شبیه این !!!

دوست عزیزم آقای .NET Framework از شما متشکرم.
ولی مثل اینکه من منظورم را درست بیان نکردم. مشکل من اینکه بلد نیستم چطوری فایلها و پوشه های روی دسکتاپ را روی فرم قرار بدم.
باز هم متشکرم...

سلام
خوب به نظرم کاربر Smafias توضیح دادند.
1- مسیر دسکتاب را به دست می اورید، مثلاً X:\Documents and Settings\User\Desktop در XP
2- در یک حلقه با دستور Dir تمام فایلها را استخراج میکنید و هر کدام را تک تک به کنترلر نمایشی Add میکنید.

اگر با دستور Dir مشکل دارید، یک نگاهی به دو تاپیک زیر بیاندازید.
forum.p30world.com/showthread.php?t=164784
forum.p30world.com/showthread.php?t=112367

دوست عزیزم آقای .NET Framework از شما متشکرم.
ولی دستور Dir فقط فایلها را به من می دهد، ولی من فایل ها و پوشه های موجود در دسکتاپ را می خواهم.
باز هم متشکرم...

برای پارامتر Attribute از vbDirectory استفاده کنید...

از ترکیب آنها هم میتونید استفاده کنید مثلا:
vbArchive + vbDirectory + vbHidden + vbNormal + vbReadOnly + vbSystem + vbVolume

امیدوارم مشکلتون حل بشه -- سوال داشتید بپرسید :11:

دوست عزیزم آقای Smafias از شما بسیار متشکرم.
حالا یک سؤال دیگر اینکه چگونه می شود مسیر Desktop - My Documents - Program Files را تشخیص داد.
باز هم متشکرم...

خواهش میکنم -- وظیفم رو انجام دادم.

----

با استفاده از توابع API.

ولی یک راه ساده تر هم هست -- استفاده از تابع Environ :
مثال:

کد:

---

MsgBox Environ$("ProgramFiles")
MsgBox Environ$("USERPROFILE") & "\Desktop"
MsgBox Environ$("USERPROFILE") & "\My Documents")"

---

به همین سادگی! :11: