VB中如何输出资源文件？

[bpm520]

我在程序里建立一个资源文件，里面加入自定义资CUSTOM,编号101，里面是一个123.rar文件。
我想知道，如何能把这个资源文件123.rar，输出到任意位置，我找了很多例子，都没有相关的教程，拜托了！！

[cih2000zg]

'此为我写URLDownload下载文件程序保存sub
Private Sub Command4_Click()
On Error Resume Next
Dim aa As String
Dim n As Integer
aa = Text1.Text 'text1是输入网址的地方
n = InStr(aa, "/") '找到字串中带"\"或带"/"的地方
If n = 0 Then
aa = Right(aa, InStr(StrReverse(aa), "\") - 1)'取"\"后的字串，即文件名
ElseIf n <> 0 And n > 0 Then
aa = Right(aa, InStr(StrReverse(aa), "/") - 1)'取"/"后的字串，即文件名
End If
  With CommonDialog1        '调出保存的对话框
   .DialogTitle = "保存文件"
   .FileName = aa           '此时的aa已经是文件名，而不是完整路径
   .Filter = "All files|*.*"
   .ShowSave
  End With
Text2.Text = CommonDialog1.FileName '完整路径
End Sub

[winter75]

LoadResData(101, 10)
101 是ID标识符，10表示用户定义资源

LoadResData 从资源文件装载的数据可以达到 64K

[winter75]

LoadResData(101, 10)
101 是ID标识符，10表示用户定义资源

LoadResData 从资源文件装载的数据可以达到 64K

[嗷嗷叫的老马]

来迟了.

顶顶.

[bpm520]

还是不明白楼上的意思，10是哪里来的？
我的意思是程序运行后，单击按钮，就能把这个资源保存到硬盘上。
例如：

Private Sub Command1_Click()
CommonDialog1.ShowSave
End Sub

[东方之珠]

释放资料文件到任意文件夹：

Dim fname As String     
Private Sub command1_click()     
  Dim v     
  Dim byt() As Byte     
  fname="c:\wang\123.rar"     
  If Dir(fname)="" Then     
     v=LoadResData(101,"CUSTOM")     
     byt=v     
     Open fname For Binary As #1     
     Put #1,1,byt()     
     Close #1     
  End If     
End Sub       

[happy_sea]

    Dim TempFile() As Byte
    Dim FileNum As Integer
    TempFile = LoadResData(101, "CUSTOM")
    FileNum = FreeFile
    Open "d:\123.rar" For Binary Access Write As #FileNum '文件名和路径自己随便改
    Put #FileNum, , TempFile
    Close #FileNum