كيف اشغل عرض باور بوينت من cd? علما انه يختلف اسم السواقة من جهاز لاخر ؟
هذا الكود اذي استخدمته محد يعرف الجواب وين الخطأ فيه علما انه لا يفتح الملف و يتوقف عند آخر سطر
Dim D As String
L = "ABCDEFGHIGKLMNOPQRSTUVWXYZ"
For X = 1 To 26
D = Mid(L, X, 1) + ":"
Drivetype = GetDriveType(D)
If Drivetype = 5 Then
GoTo 10
End If
Next
10 D = D & "a.pps"
Shell D, vbNormalFocus
خليل
اقتباسالرساله الأصليه بواسطةو يتوقف عند آخر سطر
Shell D, vbNormalFocus
الأمر shell يشغل الملفات التنفيذية فقط أي ذات الامتداد exe.
ولتشغيل ملف غير تنفيذي كملف الباور بوينت لديك فعليك باستخدام الإجرائية التالية (API):
أولا قم بتعريف الإجرائية في قسم التعريفات للفورم أو في موديول بالشكل التالي:
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 Const SW_SHOWNORMAL = 1
ثم استبدل السطر الأخير من برنامجك بالسطر التالي:
ShellExecute Me.hwnd, "open", D, vbNullString, "C:", SW_SHOWNORMAL
الله ينعم عليك بالصحة و العافية اخوي شكرا لقد اشتغل تمام:D
خليل
هذا الموضوع مغلق.