下面是些简单的代码Private Sub Form_Load()
Dim byt() As Byte
byt() = LoadResData(101, "CUSTOM") Open App.Path & "/text.txt" For Binary As #1
Put #1, , byt()
Close #1
End Sub程序运行后加载资源后回在当前路径下生成text.txt
我想在本地文件下创建文件夹123运行的text.txt放在123里面如何实现?
Dim byt() As Byte
byt() = LoadResData(101, "CUSTOM") Open App.Path & "/text.txt" For Binary As #1
Put #1, , byt()
Close #1
End Sub程序运行后加载资源后回在当前路径下生成text.txt
我想在本地文件下创建文件夹123运行的text.txt放在123里面如何实现?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货