|||||||باز شدن درايوها|||||

سلام دوستان
يه كد مي خوام كه وقتي در برنامه بر روي Command1 كليك كردم مثلا اگر درايو c انتخاب شده باز بشه

دوست عزیز برو به تاپیکی که من زدم همه این ها است

نقل قول:

---

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

دوست عزیز برو به تاپیکی که من زدم همه این ها است

---

آدرس ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟
ولي بهتر بود كه همين جا كد رو ميزاشتي اگه داري

توسط این کد میتونی این کار رو انجام بدی :

کد:

---


Call Shell("explorer.exe ""c:\", vbMaximizedFocus)

---

در تایید حرف مجید جان
فکر کنم این چیزی باشه که شما می خوای:
یک driveListBox و یک CommandButton بر روی فرمت بزا و کد زیر را کپی کن تو قسمت کد نویسی:

کد:

---

Dim t As String
Private Sub Command1_Click()
Dim drv As String
drv = Left(Drive1.Drive, 2)
Call Shell("explorer.exe " & t & drv, vbMaximizedFocus)
End Sub
Private Sub Form_Load()
t = Chr(34) & Chr(34)
End Sub

---