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