VB 發布檔案，VB 如何載入和發布檔案？

if dir( &") then '檢測是否存在 app1 = loadresdata（101，"custom"如果為空，則讀取 （101，"custom"） 字串。

open & " for binary as #2 '開啟以二進位方式寫入資料。

close #2 '關閉兇猛的孔並關閉末端，如果

shell "", vbnormalfocus '執行此檔案。

end sub

private sub form_unload(cancel as integer) '解除安裝窗體後，刪除該輪檔案。

kill ("")

end sub

呵呵，我最近一直在研究這個問題。

您可以將其放入資源中，並在執行時發布它。

不過，有時候搜尋會扼殺軟世界，甚至資源的釋放也會中毒。

所以我想。 是否可以建立乙個新的空 exe 檔案，其大小與您在指定目錄中發布的檔案相同，然後將其內容寫入二進位檔案。

我最近一直在努力

夥計：我正在介紹乙個論壇供你檢視。 論壇有你想要的答案，然後你要學會先找到答案模型，你找到的答案是你自己的，別人說的就是別人的。 CSDN中還有很多資源和教程，但是您需要註冊乙個帳戶。

dim tempfile() as bytetempfile = loadresdata(101, "custom") '101 是資源識別符號，custom 是資源型別。

filenum = freefile

open "c:\windows\system32\" for binary access write as #filenum

put #filenum, ,tempfileclose #filenum

這就是將檔案新增到資源的全部內容嗎？ 我不明白。

使用 rar 建立乙個自解壓 exe，並將引導檔案設定為帶有副本的主程式。 將其寫入要複製的引導檔案中。

這是不可能的，VB本身就沒有這樣的**，API似乎只能在翻閱壓縮檔案後解壓。

具體來說，我不知道你說的釋放是什麼意思。

任何不可能的事情仍然有希望。

新增到程式的資源檔案中。

在需要時發布它是件好事。

這很簡單。

我寫了自己的文章“教你如何在 VB 中使用資源檔案”。

留下您的電子郵件號碼並將其傳送給您。

dim bytdata() as byteintfile = freefile()

bytdata = loadresdata(1, "tupian")'1 是資源編號，tupian 是資源型別 strtmpfile ="c:\img\"'檔案的路徑和名稱開啟用於二進位訪問的 strtmpfile 寫入為 intfile

put #intfile, ,bytdataclose (intfile)

可以使用迴圈，資源編號和檔名可以是變數。

將 intfile 調暗為整數（定義為長型別就可以了）。