أهلا أخي الكريم , إنسخ هذا الكود وألصقه في داخل مثالك الذي أرفقته , كود واحد يفتح المجلدات والملفات بأنواعها :
كود :
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)