关于Byte数组的问题

everyone

<p><font face="Verdana">添加3个自定义资源文件，序号分别是101，102，103。想在需要的时候把这三个自定义资源释放到某个路径。写了以下代码：</font></p>
<p>&nbsp;</p>
<p><font face="Verdana">'先引用Microsoft Shell Controls And Automation</font></p>
<p>&nbsp;</p>
<p><font face="Verdana">Dim Shlshell As New Shell, Shlfolder As Folder<br/>Private Const BIF_RETURNONLYFSDIRS = &amp;H1<br/>Dim ResFile() As Byte</font></p>
<p>&nbsp;</p>
<p><font face="Verdana">Private Sub Command1_Click()<br/>'让用户选择一个文件夹</font></p>
<p><font face="Verdana">&nbsp;&nbsp;&nbsp; Set Shlfolder = Shlshell.BrowseForFolder(Me.hWnd, "选个文件夹", BIF_RETURNONLYFSDIRS)<br/>&nbsp;&nbsp;&nbsp; Text1.Text = Shlfolder.Items.Item.Path</font></p>
<p><font face="Verdana">End Sub</font></p>
<p>&nbsp;</p>
<p><font face="Verdana">Private Sub Command2_Click()<br/>'释放到此文件夹</font></p>
<p><font face="Verdana">&nbsp;&nbsp;&nbsp; If Text1.Text &lt;&gt; "" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ResFile() = LoadResData(101, "CUSTOM")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ResFile() = LoadResData(102, "CUSTOM")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ResFile() = LoadResData(103, "CUSTOM")</font></p>
<p><font face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Open Text1.Text &amp; "\文件1.doc" For Binary As #1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Put #1, , ResFile()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Close</font></p>
<p><font face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Open Text1.Text &amp; "\文件2.doc" For Binary As #1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Put #1, , ResFile()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Close</font></p>
<p><font face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Open Text1.Text &amp; "\文件3.doc" For Binary As #1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Put #1, , ResFile()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Close<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "释放完成", vbInformation, "提示"</font></p>
<p><font face="Verdana">&nbsp;&nbsp;&nbsp; End If</font></p>
<p><font face="Verdana">End Sub</font></p>
<p>&nbsp;</p>
<p><font face="Verdana">结果释放后的3个文件都是同样的内容。请指导一下应该怎么办。<br/></font></p>

马大哈

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ResFile() = LoadResData(101, "CUSTOM")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ResFile() = LoadResData(102, "CUSTOM")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ResFile() = LoadResData(103, "CUSTOM")</b><font face="Verdana"><br/></font></div>
<p>ResFile()&nbsp;里面肯定总是103号资源啊.</p>
<p>&nbsp;</p>
<p>载入一个释放一个吧</p>

everyone

谢谢