هل من الممكن تشغيل اداة ال Run.exe بواسطة الاكسس

من هنا موقع ميكرسوفت

او اكتب الكود التالى فى اى حدث لزر امر :)

Shell ("C:\windows\run.exe")

مشكور جدا اخي و حبيبي ابو زيد

بس انا الاوفيس تبعي هو 2003 ونظام التشغيل هو ويندوز 7

وكلما اجي ادخل الكود (" Shell ("C:\windows\run.exe

باي حدث لزر امر بيطلع رسالة

Run -time errore

file not found

ومشكور لك جدا

يمكن من خلال الكود التالي (جربته على ويندوز 7 64 بت)

'If uFlags is the following constant, the string from the last-run program will not appear in the dialogs combo box
Const shrdNoMRUString = &H2    '2nd bit is set
Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Declare Function SHRunDialog Lib "shell32" Alias "#61" (ByVal hOwner As Long, ByVal Unknown1 As Long, ByVal Unknown2 As Long, ByVal szTitle As String, ByVal szPrompt As String, ByVal uFlags As Long) As Long

Private Sub command3()
'   ضع هذا الكود في زر حدث ما
    Dim sTitle As String, sPrompt As String
    sTitle = "عنوان التشغيل."
    sPrompt = "نص الرسالة للمستخدم"
    If IsWinNT Then
        SHRunDialog Me.hWnd, 0, 0, StrConv(sTitle, vbUnicode), StrConv(sPrompt, vbUnicode), 0
    Else
        SHRunDialog Me.hWnd, 0, 0, sTitle, sPrompt, 0
    End If
End Sub
Function IsWinNT() As Boolean
    Dim OSInfo As OSVERSIONINFO
    OSInfo.dwOSVersionInfoSize = Len(OSInfo)
    'Get the Windows version
    Ret& = GetVersionEx(OSInfo)
    IsWinNT = (OSInfo.dwPlatformId = 2)
End Function