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

: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:

آقای Smafias بسیار ما را شرمنده کردید.
با سپاس فراوان می خواستم بپرسم که می شود که زحمت بکشید و Copy کردن آن را هم به ما یاد بدهید.
من می خواهم که همه پوشه ها و فایل های درون دسکتاپ را به جای دیگری کپی کنم.
با تشکر...

سلام.
دوست عزیز اگه میخوای به صورت حرفه ای با فایل ها و فولدر ها کار کنی از لیست ریفرنس ها microsoft scripting runtime رو به پروژه اضافه کن. امکانات خیلی زیادی برای کار کردن با فایل ها و فولدر ها بهت میده. خودت کمی باهاش کار کنی دستت میاد.

سلام و تشکر...
من microsoft scripting runtime را فعال کردم. بعد یک متغیر از نوع File system object ساختم.ولی یادم رفته که حالا باید چه کار کنم.
متشکرم...

سلام
اگر درست یادم باشد، برای حذف کردن کدی مثل زیر میخواهد:

کد:

---

Private m_FSO As New FileSystemObject
 
Private Sub Form_Load()
    Call m_FSO.DeleteFile("C:\file.txt", True)
    Call m_FSO.DeleteFolder("C:\folder", True)
End Sub

---