求助如何把资源文件释放到系统目录
我写了一个软件，想把我的资源文件释放到系统目录里，应该怎么写，因为有些人的系统装在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盘的系统目录了，望版主或高手指点。谢谢

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

是这样吗，老大，不行哦，能不能把代码写出来教下老弟啊。

求助

不建議使用環境變數
建議 GetSystemDirectory() 函數

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

方便点的话，两个盘都找下WINDOWS\system32文件夹，有一个就复制粘贴一个过去，两个都有就都存了么好了

心拔涼拔涼的，今天又被扣錢，又被人誤會！哎~~
就讓我來回答你的問題吧，你既然用資源文件，就寫個createfile函數吧，也就是你讀資源文件，生成子文件的函數，直接把它生成到你想要生成的地方，之前先寫函數判斷一下，那是否存在那個文件

谢谢大虾，支持我们的论坛。。。。。

顶

支持到底。。

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

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

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

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