VB.NET中如何释放资源文件，VSTO如何释放资源文件?

2022年2月23日16:31:34已关闭评论 674 views

VSTO教程购买链接https://item.taobao.com/item.htm?id=663268485377

郑广学VSTO实战Excel插件开发火箭班VBA速转VB.NET https://feu.h5.xeknow.com/s/1C0NzP

有时候我们需要在.net程序中使用资源文件，比如不想某个模板文件被用户意外修改，每次使用的时候都从资源文件释放，又或者某些文件不想让用户看见，使用的时候才进行释放，这就需要作为资源文件使用

资源文件的添加
一般文件自己在外部已经创建好，在解决方案-属性-资源窗口进行添加

资源文件的释放
资源文件添加后如果需要释放，需要先读取到io流，然后创建文件写入，这里txt文件和其他文件处理方式不一样，新手会有些懵逼，所以我封装了一个自定义函数可直接使用代码如下

Private Sub 释放资源文件(资源对象 As Object, ByVal 目标文件 As String, Optional 覆盖原文件 As Boolean = False)
        If 覆盖原文件 Then
            System.IO.File.Delete(目标文件)
        Else
            If System.IO.File.Exists(目标文件) Then
                Return '如果存在则退出不重新释放
            End If
        End If
        If Not System.IO.File.Exists(目标文件) Then
            If TypeName(资源对象) = "String" Then
                Dim f = System.IO.File.CreateText(目标文件)   '设定文件创建位置
                f.Write(资源对象) '写入资源文本
                f.Close()     '关闭文件
            Else
                Dim s As IO.Stream = System.IO.File.Create(目标文件)   '设定文件创建位置
                Dim b() As Byte
                b = 资源对象  '将资源文件转换为Byte()
                s.Write(b, 0, b.Length)    '二进制文件写入
                s.Close()     '关闭文件
            End If
        End If
    End Sub
    Sub 释放资源文件测试()
        'VSTO教程购买链接https://item.taobao.com/item.htm?id=663268485377
        '解决方案上右键属性-资源 添加资源文件
        Dim 释放路径 = "D:\VSTO880\Project\VSTO880测试框架\bin\Debug\excel测试.xlsx"

        释放资源文件(My.Resources.excel文件, 释放路径) '存在的不覆盖
        释放资源文件(My.Resources.x, "D:\VSTO880\Project\VSTO880测试框架\bin\Debug\x.txt", True) '覆盖
    End Sub