السلام عليكم ورحمة الله وبركاته
أحبابي في الله
اريد مجموعة من الأكواد الخاصة والمتشابهه ب open
كود لفتح مجلد
كود لفتح فيديو
كود لفتح بنامج بصيغة exe
كود فتح صيغة PDF
وبارك الله لكم جميعا
مرفق مثال لإضافة الأكواد فيه
شكرا اخي الكريم
ولكني كنت لا اقصد CommonDialog1
ولكن اريد كود واحد لفتح برنامج واحد فقط بعينه مثل Calculator.exe
أهلا أخي الكريم , إنسخ هذا الكود وألصقه في داخل مثالك الذي أرفقته , كود واحد يفتح المجلدات والملفات بأنواعها :
كود :
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