مستعرض الملفات

السلام عليكم

هذا مثال بسيط لاستعراض الملفات والمجلدت

الأدوات المطلوبة

أداة Drive - أداة Dir - أداة File

الآن اكتب الكود التالي في الحدث Form_Load

Private Sub Form_Load()
Me.Dir1.Path = Me.Drive1.Drive
Me.File1.Path = Me.Dir1.Path
End Sub

في أداة Drive أكتب

Private Sub Drive1_Change()
On Error Resume Next
Me.Dir1.Path = Me.Drive1.Drive
If Err Then MsgBox "أدخل قرص في الحاوية"
End Sub

في أداة Dir اكتب

Private Sub Dir1_Change()
Me.File1.Path = Me.Dir1.Path
End Sub

في أداة File أكتب

Private Sub File1_Click()
MsgBox Me.Dir1.Path & "\" & Me.File1.FileName
If MsgBox("هل تريد الذهاب إلى المسار المحدد ؟",20)=VbYes Then
Call Shell("Explorer " & Me.Dir1.Path, VbMaximizedFocus)
End If
End Sub

(h) (h) (h)