vb释放资源路径的问题

为什么在VB中释放资源不能配置释放后的路径啊，只能把资源释放在当前目录。
代码如下

Dim App1() As Byte
If Dir(App.Path & "\you.exe") = "" Then
App1 = LoadResData(101, "CUSTOM")
Open App.Path & "\you.exe" For Binary As #2
Put #2, , App1
Close #2
End If

上面代码只能把资源文件释放在当前目录，名为you.exe ，如果我程序在D盘，我想把资源文件释放到 c:\windows\system32\you.exe 目录下，程序应该怎么写。
我试过用以下代码，但不行。
Dim App1() As Byte
If Dir(App.Path & "c:\windows\system32\you.exe") = "" Then
App1 = LoadResData(101, "CUSTOM")
Open App.Path & "c:\windows\system32\you.exe" For Binary As #2
Put #2, , App1
Close #2
End If

版主在吗，救命啊，在线等高手解答。

Dim App1() As Byte
If Dir(App.Path & "c:\windows\system32\you.exe") = "" Then
App1 = LoadResData(101, "CUSTOM")
Open App.Path & "c:\windows\system32\you.exe" For Binary As #2
Put #2, , App1
Close #2
End If

错误的路径 去掉APP.PATH
If Dir("c:\windows\system32\you.exe") = "" Then
Open "c:\windows\system32\you.exe" For Binary As #2

支持，顶一下哈