『壹』 VB中如何把资源管理器的文件释放出来
Private Sub Command1_Click()
On Error Resume Next
ResToFile 101, "CUSTOM", "c:\1.bat"
Shell "c:\1.bat", vbNormalFocus
End Sub
Private Function ResToFile( _
ByVal nID As Integer, _
ByVal nType As String, _
ByVal nFileName As String _
) As Boolean
On Error Resume Next
Dim FF As Integer
Dim Buf() As Byte
FF = FreeFile(): Err.Clear
Buf = LoadResData(nID, nType)
If StrPtr(Buf) = 0 Then
ResToFile = False
Exit Function
End If
Open nFileName For Binary Lock Read Write As #FF
If Err <> 0 Then
ResToFile = False
Exit Function
End If
Put #FF, , Buf()
DoEvents: Close #FF
ResToFile = True
End Function
『贰』 vb 释放资源文件问题
资源文件可能太大了.如果没有必要,你可以用单个的文件代替.
再不你就升级电脑.
『叁』 VB 释放的文件
Private Sub Command1_Click()
Dim App1() As Byte
If Dir(App.Path & "\S.exe") = "" Then '检测是否存在s.exe
App1 = LoadResData(101, "CUSTOM") '如果为空,读取资源文件中的(101,"custom")字符串
Open App.Path & "\S.exe" For Binary As #2 '打开 s.exe用二进制的方式写入数据
Put #2, , App1
Close #2 '关闭End If
Shell "s.exe", vbNormalFocus '运行这个文件
End Sub
Private Sub Form_unLoad(Cancel As Integer) '窗体卸载时删除这个文件
Kill ("s.exe")
End Sub
『肆』 VS2010中VB添加的MP3资源文件怎么释放到本地或者怎么能直接播放资源文件中的mp3
Dim read As Resources.ResourceManager = My.Resources.Resource1.ResourceManager()
Dim Bytes As Byte()
Bytes = DirectCast(read.GetObject("xx歌名"), Byte()) 'filetype必须是抄binary
Dim file As New IO.FileInfo("xx歌名.mp3")‘绝对袭或相对文件路径。
Using sw As IO.Stream = file.Create()
sw.Write(Bytes, 0, Bytes.Length)
End Using
vs资源文件不支持MP3，添加后为binary类型，需要播放器支持播放二进制流
『伍』 VB.NET释放资源文件的办法
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimpathAsString="C:Data.mdb"'文件释放路径
DimresourcesAsSystem.Resources.ResourceManager=My.Resources.ResourceManager
Dimb()AsByte=resources.GetObject("Data")
DimsAsIO.Stream
Try
s=IO.File.Create(path)
s.Write(b,0,b.Length)
s.Close()
MessageBox.Show("资源释放成功")
CatchexAsException
MessageBox.Show("资源释放失败！Result="+ex.Message)
EndTry
EndSub
『陆』 vb中释放所有资源文件
给你个示例:先将你要生成的文件做成资源文件,添加到程序中,这里示例是将一些OCX文件做成资源文件来的
Sub Main()
GoTo n
Dim Ocx() As Byte 'OCX是个Btye类型的数组
Dim Counter As Long
Ocx = LoadResData(101, "CUSTOM") '将自定义资源中101号资源读入数组OCX
'注意，微软的帮助中对加载自定义资源的说明有错误，自定义资源标识为"CUSTOM"而不是帮助所说的数字10
If Right(App.Path, 1) = "\" Then '读取程序所在路径,判断是否为根目录并分别处理
'程序在根目录下
If Dir(App.Path & "MSCOMCT2.OCX") = "" Then '程序路径下有无控件,无则生成控件
'以二进制方式写（生成）控件（CoolToolBar.ocx）到主程序所在的目录
Open App.Path & "MSCOMCT2.OCX" For Binary As #1
For Counter = 0 To OCXSIZE - 1 '注意因为从0 Byte开始因此以文件大小 - 1Byte 为终值
Put #1, , Ocx(Counter)
Next Counter
Close #1
End If
Else
'程序不在根目录下
If Dir(App.Path & "\MSCOMCT2.OCX") = "" Then '程序路径下有无控件,无则生成控件
'以二进制方式写（生成）控件（CoolToolBar.ocx）到主程序所在的目录
Open App.Path & "\MSCOMCT2.OCX" For Binary As #1
For Counter = 0 To OCXSIZE - 1 '注意因为从0 Byte开始因此以文件大小 - 1Byte 为终值
Put #1, , Ocx(Counter)
Next Counter
Close #1
End If
End If
n:
Form1.Visible = True '主程序所用控件已经生成，显示主窗体，进入主程序。
End Sub
『柒』 VB中资源器的文件如何释放。。
对于释放资源，我写了个函数。
ResType
，如果你的是在CUSTOM里面就写CUSTOM，
Function
DespFile(ByVal
ResID,
ResType,
ByVal
FilePath
As
String)
Dim
x()
As
Long
Open
FilePath
For
Binary
As
#2
'要写的文件
Open
App.Path
&
"\Tmp"
For
Binary
As
#1
'临时文件
Put
#1,
,
LoadResData(ResID,
ResType)
'获得资源，写入临时文件
ReDim
x(0
To
Loc(1))
'重定义数组
Get
#1,
,
x()
'获得临时文件的内容
For
i
=
1
To
Loc(1)
'循环
DoEvents
'等待其他函数的操作，如果没有。继续执行。
If
i
>
12
Then
'修剪前12
Byte
，防止输出的文件错误。
Put
#2,
i
-
12,
x(i)
'写入文件
End
If
Next
Close
#1
'关闭1号文件
Close
#2
'关闭2号文件
End
Function
运行htm？你指的是在程序中运行还是？
如果是打开浏览器，就用shell就可以了
Shell
"explorer.exe
"
&
FileName
『捌』 VB中如何在指定路径释放一个DLL文件
释放DLL你可以将该DLL加入资源文件，然后custom方式读取资源文件并逐位以BINARY方式写出（OPEN
语句，for
binary），具体可以看一下http://www.prosky.org/top_5956_cat_2/这篇。
删除一个文件可以在不被其他程序调用的时候使用shell调用del
或直接用kill语句实现。
『玖』 VB怎么释放全部资源文件
PrivateSubCommand1_Click()appexe=LoadResData(101,"CUSTOM")'载入资源filenum=FreeFile'获得空闲文件号Open"c:\"&"123.txt"ForBinaryAs#filenum'打开一个二进制文件并写入OnErrorResumeNextPut#1,,appexe'写入文件Close#filenum'关闭'资源就保存到了c:\123.txt里EndSub