سؤال:ما كود فتح ملف htm او html?

السلام أخي الكريم/

يمكن من خلال استخدام الملف التنفيذي iexplore.exe

مثال إذا كان لدينا ملف اسمة abc.html على c:\

تكون طريقة الفتح

iexplore.exe "c:\abc.html"

فراس

السلام اخي الكريم فراس

اشكرك علي سرعة اجابة سؤالي

و لك كل الشكر و جزاك الله خيرا

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

و بحثت و جربت اكواد اخري و لكن كان لها نفس النتيجة

الي ان وجدت كود يعمل و لكن للاسف لا يعرض الصور التي توجد داخل صفحة html

Shell "RUNDLL32.EXE URL.DLL,FileProtocolHandler c:\abc.htm", vbNormalFocus

لذا ارجوا ان تتفضل باضافة اي تعديل او اقتراح لرؤية الصور في الصفحة

و جزاك الله كل خير

و السلام عليكم و رحمة الله و بركاته

استخدم API ShellExecute لهذا الامر

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 Declare Function GetDesktopWindow Lib "user32" () As Long

 Const SW_SHOWNORMAL = 1

'Insert this code to your form:

Function StartDoc(DocName As String) As Long
Dim Scr_hDC As Long
Scr_hDC = GetDesktopWindow()
StartDoc = ShellExecute(Scr_hDC, "Open", DocName, "", "C:\", SW_SHOWNORMAL)
End Function

Private Sub Form_Load()
Dim r As Long
'Replace the c:\mp3\song.mp3 with the file you want to launch
'   ضع هنا الملف الذي تريد فتحه حيث يتم ربطه مع برنامجه الافتراضي '
r = StartDoc("c:\aa.html")


End Sub

هذا الكود من منقول مع تعديلات لتلائم هذه المشاركة من مكتبة الكود في احدى المشاركات في هذا المنتدى ارجو ان تبحث عنها حيث بها عدة امثلة تتعلق بهذا الامر وستجد بها ما تريد

تكررت بالخطأ فعذرا

شكرا علي الرد الكريم

و شكرا علي سرعة الرد

وهناك تكملة لسؤالي و قد فضلت ان توضع كسؤال منفرد

فارجوا من الاخوة الكرام الدخول علي الرابط التالي للاجابة عليه

/index.php?showtopic=130274

و لكم جزيل الشكر و العرفان

و السلام عليكم و رحمة الله و بركاته