编程论坛 → VB6论坛

VB怎么释放资源文件到指定文件夹

li86791177 发布于 2013-03-15 19:51， 828 次点击

比如我想把资源文件101 释放到指的的G盘的tes 文件夹以下源码
Dim byt() As Byte
Dim v
Dim a As String
If Dir("G:\tes", vbDirectory) = "" Then
MkDir "G:\tes"
End If
v = LoadResData(101, "CUSTOM")
byt = v
a = "G:\tes"
Open a For Binary Access Write As #1
Put #1, 1, byt()
Close #1
运行一下出现实时错误75 路径\文件访问错误
调试指向这句
Open a For Binary Access Write As #1
我想大哥们指点下
小弟我查询了网上很多对照下我没有写错
是打开路径a的文件号为1并释放资源文件101

5 回复

#2

bczgvip2013-03-15 20:16

a = "G:\tes\filename.dat" '打开文件夹？至少这样吧？

#3

风吹过b2013-03-16 09:34

MkDir "G:\tes"

a = "G:\tes"
Open a For Binary Access Write As #1

打开一个目录进行读写？？

按楼上的操作吧，写一个文件名。

#4

li867911772013-03-16 10:58

谢谢两位大哥

#5

li867911772013-03-16 11:24

顺便说一下我的错误点以便别的同学看的懂
版主大哥说的
a = "G:\tes\filename.dat"
这句地址是打开G盘的tes文件夹跟着后面的这个文件类型
是创建以个类型方便资源文件写入同事注意的是这个地址文件类型要跟你释放的资源文件类型一样否则释放成功了也吊用不了

谢谢各位版主们

#6

li867911772013-03-16 11:25

错别字真多哈哈

1