سؤال في فتح المجلدات

وضح اكثر

على فهمي انك تستخدم Shell

Dim j

j = Shell("here", vbMaximizedFocus)

اخي بروف الدالة Shell تشغل فقط الملفات

و من أجل فتح المجلدات و جميع أنواع الملفات عليك بالدالة

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

اكتبها في كودك في الأعلى

و في زر بوتن مثلا أكتب التالي

ShellExecute hwnd, "open", "c:\", 0, 1, 1

بالنسبة للبرامتر الأخير المكتوب فيه 1 يمكن أن يستبدل بأي رقم كالتالي

1=اظهار نافذة الملف أو المجلد بطريقة عادية

2=اظهارها Minimized

3= Maximized

أتمنى أن يفيدك و السلام عليكم

السلام عليكم..

طيب ما دام دالة Shell تقوم فقط بفتح الملفات نستطيع فتح برنامج Explorer منها..

Shell "Explorer C:\", vbMaximizedFocus