فتح ملف

[ghreep aldar 0]

ياليت تساعدوني

انا سويت مشروع وعندي ملفات على الوورد واكسيس وبرنامج الفلاش ابي اضغط زر ويقوم بتشغيلها

يعني

اقول فرضا

اذا كنت تريد الحصول على معلومات اكثر اضغط هنا

ولما يضغط يجي ملف الفلاش فرضا مثل ماهو يعني ماينفتح في نفس البرنامج ينفتح على برنامج الفلاش خارج المشروع .

ان شاء الله الصورة وضحت .

[HnHn 17]

B)

استخدم الدالة shell32.dll

من project ثم References ثم

Microsoft Shell controsl

ثم هذا الكود لفتح اي ملف فقط حدد مساره

Dim SH As New Shell 
SH.Open "C:\swf.exe"

تم تعديل 30 Nov 2006 بواسطه HnHn

[ghreep aldar 0]

مليون عافية

وجاري التجربة حالا ،،،

[byte 0]

اذا كنت لا ترغب في اللجوء الى الــ References استخدم كود الــ API التالي :

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 Sub Form_Load()
	ShellExecute Me.hwnd, vbNullString, "ضع هنا اسم الملف ومساره", vbNullString, "C:\", 1
End Sub

تم تعديل 1 Dec 2006 بواسطه byte

[zizo.h 0]

وفي حل أخر لأستدعاء الملفات و هو

shell و بعدين عنوان الملف

[Ala2 VB 95]

جزاكم الله خير على الأكواد والمعلومة