可以的

Kill "Environ(""windir"") & ""\system32\mm.exe"""
但我删除了，没效，不行哦。好晕。
Dim App1() As Byte
If Dir(Environ("windir") & "\system32\mm.exe") = "" Then
App1 = LoadResData(101, "CUSTOM")
Open Environ("windir") & "\system32\mm.exe" For Binary As #2
Put #2, , App1
Close #2 '
End If
这个就可以，那句

Kill "Environ(""windir"") & ""\system32\mm.exe"""
shell "del Environ(""windir"") & ""\system32\mm.exe"""

像上面这行我也测试过不能正常运行。
不信你试试，有没有像API的使用方法可以做到的。望高手指教。先谢了

你又犯了相同的错误
Environ("windir") & "\system32\mm.exe"
本来就是字符串，不需要再加引号

Option Explicit

Private Sub Form_Load()
kill "del.exe Environ("windir") & "\system32\mm.exe""
End Sub

但我把程序写成这样就出现 “缺少语句结速的提示” ，不信你试试看。

呵呵，又画蛇添足了
kill Environ("windir") & "\system32\mm.exe"

呵呵，谢谢老大，OK了。有问题再请教你。。。。。。

又有问题请教了。

Shell regedit.exe /s Environ("windir") & "\system32\reg.reg"

如果我要用REGEDIT来导入注册表，把代码写成
Shell regedit.exe /s Environ("windir") & "\system32\reg.reg"

就不行了。请问那里出错了。

大哥，我会不会很烦。。。。不好意思。。。。

不要客气
这次你又把该要的引号去掉了

Shell "regedit.exe /s " & Environ("windir") & "\system32\reg.reg"

谢谢老大，你真是救世主。。。。。。


这是我见过最好的论坛。。。。

永远支持我们的论坛。。。。。。。。。。。。。。

等我厉害了，我也要在这里教像我这样的初学者。。