'得到数据库备份文件路径 Private Function GetBakFilePath(ByVal DatFileName As String) As String Try '通过反射取到程序集 Dim Asm As [Assembly] = [Assembly].GetExecutingAssembly() '读取资源文件资料,要将资源文件在编译时设成嵌入的资源 Dim Sm As Stream = Asm.GetManifestResourceStream(Asm.GetName().Name + "." + DatFileName) If File.Exists("c:\" & DatFileName) Then File.Delete("c:\" & DatFileName) End If Dim Fs As New FileStream("c:\" & DatFileName, FileMode.Create) Dim Sw As New BinaryWriter(Fs) Dim recbyte(Sm.Length - 1) As Byte Dim strread As New BinaryReader(Sm) strread.Read(recbyte, 0, recbyte.Length) Sw.Write(recbyte, 0, recbyte.Length) Sw.Close() Fs.Close() Return "C:\" & DatFileName Catch ex As Exception MsgBox(Err.Description, MsgBoxStyle.OKOnly, "出错提示") Throw ex End Try End Function
Private Function GetBakFilePath(ByVal DatFileName As String) As String
Try
'通过反射取到程序集
Dim Asm As [Assembly] = [Assembly].GetExecutingAssembly()
'读取资源文件资料,要将资源文件在编译时设成嵌入的资源
Dim Sm As Stream = Asm.GetManifestResourceStream(Asm.GetName().Name + "." + DatFileName)
If File.Exists("c:\" & DatFileName) Then
File.Delete("c:\" & DatFileName)
End If
Dim Fs As New FileStream("c:\" & DatFileName, FileMode.Create)
Dim Sw As New BinaryWriter(Fs)
Dim recbyte(Sm.Length - 1) As Byte
Dim strread As New BinaryReader(Sm)
strread.Read(recbyte, 0, recbyte.Length)
Sw.Write(recbyte, 0, recbyte.Length)
Sw.Close()
Fs.Close()
Return "C:\" & DatFileName
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.OKOnly, "出错提示")
Throw ex
End Try
End Function
Imports System.Configuration.Install
Imports System.Reflection
Imports System.IO
Imports System.Data
Imports System.Data.SqlClient
如ResourceCS.resx
ChineseName是ResourceCS.resx文件中的键值
<asp:Lebel id="lebel1" text="<%$Resources:ResourceCS,ChineseName %>" runat="server"/>ResourceCS是App_GlobalResources下创建的资源文件名
如ResourceCS.resx
ChineseName是ResourceCS.resx文件中的键值