Dim FullPath As String

        Dim Asm As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()

        Dim strConfigLoc As String

        strConfigLoc = Asm.Location

Dim file As System.IO.File

        If file.Exists("C:\Program Files\Microsoft SQL Server\MSSQL\Data\TruckDB_data.mdf") = True Then Exit Sub

        MyBase.Install(stateSaver)

        Dim CheckedDir As System.IO.Directory

        If CheckedDir.Exists("C:\Program Files\Microsoft SQL Server\MSSQL\Data") = False Then

            CheckedDir.CreateDirectory("C:\Program Files\Microsoft SQL Server\MSSQL\Data")

        End If

        Dim FullPath As String

        Dim Asm As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()

        Dim strConfigLoc As String

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  下一页