Question

VB.NET释放资源文件的办法？

我用VS2013做了一个VB.NET程序，工程里有一个资源文件“Data.mdb”，需要在首次启动时释放进硬盘，但是一直不能实现，求助。

Answer 1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim path As String = "C:\Data.mdb" '文件释放路径
        Dim resources As System.Resources.ResourceManager = My.Resources.ResourceManager
        Dim b() As Byte = resources.GetObject("Data")
        Dim s As IO.Stream
        Try
            s = IO.File.Create(path)
            s.Write(b, 0, b.Length)
            s.Close()
            MessageBox.Show("资源释放成功")
        Catch ex As Exception
            MessageBox.Show("资源释放失败！Result=" + ex.Message)
        End Try
    End Sub

追问

我试了很多次，无论是把资源设置为“嵌入的资源”或者设置为“无”，或者把“Data”改成“Data.mdb”,程序都会提示；”资源释放失败！ Result=未将对象弓I用设置到对象的实例。”，虽然最后可以创建出文件，但是文件是0KB,没有数据写进文件啊。鄙人QQ:2543280836，方便细谈吗？

追答

嗯，我想问问你在调试这段代码的时候在

Dim s As IO.Stream

这行设置断点，然后用VS的即时变量窗口看一下你的变量b内容是不是Nothing，如果是的话，那是获取从资源文件里获取失败了。你检查一下你的MDB文件在资源文件里的名字是否和我上面代码里的名字一致。