[Ahmed_Mansoor]

أهلا أخي الكريم , إنسخ هذا الكود وألصقه في داخل مثالك الذي أرفقته , كود واحد يفتح المجلدات والملفات بأنواعها :

كود :

Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
    lpOperation As String, ByVal lpFile As String, ByVal _
    lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

Private Const SW_SHOWNORMAL = 1

Private Sub OpenAll(Optional InitialDirectory As String)

      ShellExecute 0, "open", InitialDirectory, _
        vbNullString, vbNullString, SW_SHOWNORMAL

End Sub


Private Sub Command1_Click()

OpenAll "C:\File.exe"

End Sub

Private Sub Command2_Click()

OpenAll "C:\Windows"

End Sub

Private Sub Command3_Click()

OpenAll "C:\File.pdf"

End Sub

Private Sub Command4_Click()

OpenAll "C:\File.avi"

End Sub