ویندوز اکسپلورر در Vb

لطفا کد یا سورسی ارائه دهید که ویندوز اکسپلورر را کاملا در وی بی شبیه سازی (اصلا خودش باشه) کند.

برای اینکار از منوی Project آیتم Reference را انتخاب کن ، سپس آیتم Microsoft Shell Controls and Automaton را انتخاب کن.

کد:

---

Private Sub Command1_Click()
Dim SH As New Shell
SH.Explore "c:"
End Sub

---

یا

کد:

---

Public Sub eRoot(rootpath As String, fldrs As Boolean)
On Error Resume Next
Dim EX, ARGU, path, X
If fldrs = True Then
EX = "explorer.exe"
ARGU = " /e,/root, "
path = rootpath$
X = Shell(EX & ARGU & path, 1)
ElseIf fldrs = False Then
EX = "explorer.exe"
ARGU = " n/e,/,root, "
path = rootpath$
X = Shell(EX & ARGU & path, 1)
End If
End Sub

Private Sub Command1_Click()
eRoot ("c:"), True
End Sub

---

دوست عزیز ممنون از زحمتی که کشیدی اما منظور من چیز دیگه ای بود. من میخوام خود ویندوز اکسپلورر داخل برنامه باشه. با همون شکل و شمایل و با همون آیکونهای ویندوز (البته بدون منوها و ابزارهاش). صد در صد با TreeView کار کردی. درسته؟

می تونی از سورس زیر استفاده کنی :

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]