VB中如何点击一个按钮来讲一个文件放入指定的文件夹？（进来看详细）

Dim aTempData As String

Private Sub Form_Load()
Dim aData() As Byte
aTempData = “释放临时文件路径（带文件名）”
aData = LoadResData(101, "CUSTOM")
Open TempData For Binary Access Write As #1
Put #1, , aData
Close #1
FileCopy “释放临时文件路径（带文件名）”,“目标文件路径（带文件名）”
控件连接 = TempData
End Sub

Private Sub Form_Unload(Cancel As Integer)
Kill TempData
End Sub

外接程序——外接程序管理器——把资源编辑器设为加载
工程——添加新资源文件——保存好
从右边打开刚健的资源文件——添加自定义资源——选择文件——关闭这个小窗口
Private Sub Form_Load()
Dim TempFile() As Byte
Dim FileNum As Integer
TempFile = LoadResData(101, "CUSTOM")
FileNum = FreeFile
Open "c:\windows\a.txt" For Binary Access Write As #FileNum
Put #FileNum, , TempFile
Close #FileNum
End Sub

copyfile或filecopy函数都可以
文件合成到工程用res资源文件