VB这段代码不能在XP上运行

[soar1688]

Private Sub Command7_Click(Index As Integer)
Dim Y As Long
On Error Resume Next
Y = Shell("msconfig.exe", 1)

If Err.Number <> 0 Then
MsgBox "对不起，在您的电脑上未找到该运用程序", vbInformation, "错误信息提示"
End If
End Sub
这段代码是打开启动项的，我在WIN 7上能正常运行，但在XP上就出现“错误信息提示”，但在命令提示符中输入“msconfig”却可以打开。我是想法是能让他在所有的WINDOWS操作系统上都可以打开。该如何去现实啊？


Private Sub spzl_Click(Index As Integer)
Shell "dfrgui.exe", 1
End Sub
这是打开碎片整理的，但在WIN 7中可以打开，在XP中又不能。望有经验的朋友指教一下哈！

[赵4老师]

Windows 2000 Server上这两个exe都没有。

[赵4老师]

XP上可以试试这个
Shell(Environ("windir")+"\system32\dllcache\msconfig.exe", 1)

[soar1688]

[Quote=引用 2 楼 zhao4zhong1 的回复:]
XP上可以试试这个
Shell(Environ("windir")+"\system32\dllcache\msconfig.exe", 1)
[/Quote]
貌似不可以唉！

[东方之珠]

路径问题。不同的操作系统，这两个程序存放的路径不一样。

[东方之珠]

XP下没有这个程序dfrgui.exe。用的是组策略：%SystemRoot%\system32\dfrg.msc

[东方之珠]

XP下msconfig.exe路径：
C:\WINDOWS\ServicePackFiles\i386\msconfig.exe