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

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

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

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

1. 资源文件的添加
   一般文件自己在外部已经创建好，在解决方案-属性-资源窗口进行添加
   
2. 资源文件的释放
   资源文件添加后 如果需要释放，需要先读取到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

3. 释放结果如图所示