有没有什么语句可以运行.msc文件

哪位大哥知道的发个帖

mscfile="services.msc"
shell "mmc " & mscfile

为什么会总是显示找不到文件,换成devmgmt.msc或gpedit.msc都不行

我找到解决的方法了

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
ShellExecute 0&, vbNullString, "gpedit.msc", vbNullString, vbNullString, vbNormalFocus


将红色的文件换成你想要运行的文件就可以了

mscfile = "%windir%\system32\services.msc"
Shell "mmc.exe " & mscfile

6楼的运行很好！

5楼运行也很好：
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 Command1_Click()

ShellExecute 0&, vbNullString, "gpedit.msc", vbNullString, vbNullString, vbNormalFocus

End Sub

辛苦了,slore!