求助如何把资源文件释放到系统目录
我写了一个软件，想把我的资源文件释放到系统目录里，应该怎么写，因为有些人的系统装在C盘，有些人的系统装在D盘，我想把软件释放到用户的 c:\windows\system32 或 d:\windows\system32 目录下，因为不知道用户系统装在那个盘，所以想让程序识别用户计算机的系统目录位置。

原程序如下：

Dim App1() As Byte
If Dir("C:\WINDOWS\system32\mm.exe") = "" Then
App1 = LoadResData(101, "CUSTOM")
Open "C:\WINDOWS\system32\mm.exe" For Binary As #2
Put #2, , App1
Close #2 '
End If

但如果用户的系统装在D盘呢，就没法把 mm.exe 的文件释放到用户D盘的系统目录了，望版主或高手指点。谢谢

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 这样去删除系统目录里的mm.exe 文件？
刚学VB几天，没办法，太菜了。

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

还有一个问题，能不能用kill 这样去删除系统目录里的mm.exe 文件？
刚学VB几天，没办法，太菜了。

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

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的使用方法可以做到的。望高手指教。先谢了

Option Explicit

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

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

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

又有问题请教了。

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

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

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

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

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


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

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

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